[copy cells] fill empty cells (#851)

* [copy_cells] fill empty cells * update NEWS
JanMarvin · Nov 14, 2023 · 13a7c79 · 13a7c79
1 parent f4e85e5
commit 13a7c79
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -10,6 +10,8 @@
 
 * Improve drawing relationship id selection that could cause issues with unordered relationship ids in loaded workbooks. [838](https://github.com/JanMarvin/openxlsx2/pull/838)
 
+* Improve copying cells in transpose mode and with hyperlinks. [850](https://github.com/JanMarvin/openxlsx2/pull/850)
+
 
 ***************************************************************************
 

diff --git a/R/class-workbook.R b/R/class-workbook.R
@@ -2947,7 +2947,7 @@ wbWorkbook <- R6::R6Class(
  if (as_ref) {
  from_sheet_name <- self$get_sheet_names(escape = TRUE)[[from_sheet]]
  to_cc[c("c_t", "c_cm", "c_ph", "c_vm", "v", "f", "f_t", "f_ref", "f_ca", "f_si", "is")] <- ""
- to_cc[c("f")] <- paste0(shQuote(from_sheet_name, type = "sh"), "!", from_cells)
+ to_cc[c("f")] <- paste0(shQuote(from_sheet_name, type = "sh"), "!", from_dims)
  }
 
  # uninitialized cells are NA_character_