allow from or to to be waivers

JanMarvin · Sep 30, 2023 · 564165f · 564165f
1 parent f06db26
commit 564165f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/class-workbook.R b/R/class-workbook.R
@@ -6904,7 +6904,9 @@ wbWorkbook <- R6::R6Class(
     #' @param to the worksheet the style is applied to
     clone_sheet_style = function(from = current_sheet(), to) {
 
-      id_org <- private$get_sheet_index(from)
+      # clone is required, otherwise from sets the current sheet and to can
+      # not use current_sheet().
+      id_org <- self$clone()$.__enclos_env__$private$get_sheet_index(from)
       id_new <- private$get_sheet_index(to)
 
       org_style <- self$worksheets[[id_org]]$sheet_data$cc