diff --git a/R/class-workbook-wrappers.R b/R/class-workbook-wrappers.R index 9aed29d4f..a09405fc8 100644 --- a/R/class-workbook-wrappers.R +++ b/R/class-workbook-wrappers.R @@ -3086,42 +3086,45 @@ wb_add_sparklines <- function(wb, sheet = current_sheet(), sparklines) { #' @param wb workbook #' @param sheet sheet #' @param dims dims -#' @param calculatedColumn calculatedColumn -#' @param emptyCellReference emptyCellReference -#' @param evalError evalError +#' @param calculated_column calculatedColumn +#' @param empty_cell_reference emptyCellReference +#' @param eval_error evalError #' @param formula formula -#' @param formulaRange formulaRange -#' @param listDataValidation listDataValidation -#' @param numberStoredAsText numberStoredAsText -#' @param twoDigitTextYear twoDigitTextYear -#' @param unlockedFormula unlockedFormula +#' @param formula_range formulaRange +#' @param list_data_validation listDataValidation +#' @param number_stored_as_text numberStoredAsText +#' @param two_digit_text_year twoDigitTextYear +#' @param unlocked_formula unlockedFormula +#' @param ... additional arguments wb_add_ignore_error <- function( wb, - sheet = current_sheet(), - dims = "A1", - calculatedColumn = FALSE, - emptyCellReference = FALSE, - evalError = FALSE, - formula = FALSE, - formulaRange = FALSE, - listDataValidation = FALSE, - numberStoredAsText = FALSE, - twoDigitTextYear = FALSE, - unlockedFormula = FALSE + sheet = current_sheet(), + dims = "A1", + calculated_column = FALSE, + empty_cell_reference = FALSE, + eval_error = FALSE, + formula = FALSE, + formula_range = FALSE, + list_data_validation = FALSE, + number_stored_as_text = FALSE, + two_digit_text_year = FALSE, + unlocked_formula = FALSE, + ... ) { assert_workbook(wb) wb$clone()$add_ignore_error( - sheet = sheet, - dims = dims, - calculatedColumn = calculatedColumn, - emptyCellReference = emptyCellReference, - evalError = evalError, - formula = formula, - formulaRange = formulaRange, - listDataValidation = listDataValidation, - numberStoredAsText = numberStoredAsText, - twoDigitTextYear = twoDigitTextYear, - unlockedFormula = unlockedFormula + sheet = sheet, + dims = dims, + calculated_column = calculated_column, + empty_cell_reference = empty_cell_reference, + eval_error = eval_error, + formula = formula, + formula_range = formula_range, + list_data_validation = list_data_validation, + number_stored_as_text = number_stored_as_text, + two_digit_text_year = two_digit_text_year, + unlocked_formula = unlocked_formula, + ... = ... ) } diff --git a/R/class-workbook.R b/R/class-workbook.R index fd8d20897..6de6b0870 100644 --- a/R/class-workbook.R +++ b/R/class-workbook.R @@ -6593,40 +6593,43 @@ wbWorkbook <- R6::R6Class( #' @description Ignore error on worksheet #' @param sheet sheet #' @param dims dims - #' @param calculatedColumn calculatedColumn - #' @param emptyCellReference emptyCellReference - #' @param evalError evalError + #' @param calculated_column calculatedColumn + #' @param empty_cell_reference emptyCellReference + #' @param eval_error evalError #' @param formula formula - #' @param formulaRange formulaRange - #' @param listDataValidation listDataValidation - #' @param numberStoredAsText numberStoredAsText - #' @param twoDigitTextYear twoDigitTextYear - #' @param unlockedFormula unlockedFormula + #' @param formula_range formulaRange + #' @param list_data_validation listDataValidation + #' @param number_stored_as_text numberStoredAsText + #' @param two_digit_text_year twoDigitTextYear + #' @param unlocked_formula unlockedFormula + #' @param ... additional arguments add_ignore_error = function( - sheet = current_sheet(), - dims = "A1", - calculatedColumn = FALSE, - emptyCellReference = FALSE, - evalError = FALSE, - formula = FALSE, - formulaRange = FALSE, - listDataValidation = FALSE, - numberStoredAsText = FALSE, - twoDigitTextYear = FALSE, - unlockedFormula = FALSE + sheet = current_sheet(), + dims = "A1", + calculated_column = FALSE, + empty_cell_reference = FALSE, + eval_error = FALSE, + formula = FALSE, + formula_range = FALSE, + list_data_validation = FALSE, + number_stored_as_text = FALSE, + two_digit_text_year = FALSE, + unlocked_formula = FALSE, + ... ) { + standardize_case_names(...) sheet <- private$get_sheet_index(sheet) self$worksheets[[sheet]]$ignore_error( dims = dims, - calculatedColumn = calculatedColumn, - emptyCellReference = emptyCellReference, - evalError = evalError, + calculatedColumn = calculated_column, + emptyCellReference = empty_cell_reference, + evalError = eval_error, formula = formula, - formulaRange = formulaRange, - listDataValidation = listDataValidation, - numberStoredAsText = numberStoredAsText, - twoDigitTextYear = twoDigitTextYear, - unlockedFormula = unlockedFormula + formulaRange = formula_range, + listDataValidation = list_data_validation, + numberStoredAsText = number_stored_as_text, + twoDigitTextYear = two_digit_text_year, + unlockedFormula = unlocked_formula ) }, diff --git a/man/wbWorkbook.Rd b/man/wbWorkbook.Rd index a3745c4c3..fed3916bd 100644 --- a/man/wbWorkbook.Rd +++ b/man/wbWorkbook.Rd @@ -3053,15 +3053,16 @@ Ignore error on worksheet \if{html}{\out{