Skip to content

Commit

Permalink
* wb_add_ignore_error
Browse files Browse the repository at this point in the history
  • Loading branch information
JanMarvin committed Jul 9, 2023
1 parent 9250c2b commit de008d9
Show file tree
Hide file tree
Showing 4 changed files with 101 additions and 89 deletions.
63 changes: 33 additions & 30 deletions R/class-workbook-wrappers.R
Original file line number Diff line number Diff line change
Expand Up @@ -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,
... = ...
)
}

Expand Down
57 changes: 30 additions & 27 deletions R/class-workbook.R
Original file line number Diff line number Diff line change
Expand Up @@ -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
)
},

Expand Down
35 changes: 19 additions & 16 deletions man/wbWorkbook.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

35 changes: 19 additions & 16 deletions man/wb_add_ignore_error.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

0 comments on commit de008d9

Please sign in to comment.