copy function

[JanMarvin]

❗ This was introduced to main in #515

---

Related to #282 a final draft for the year. It works and maybe someone wants to pick it up and finish it?

#' copy cells around
#' @param wb workbook
#' @param sheet a worksheet
#' @param dims cell used as start
#' @param data a wb_data object
#' @param as_value should a copy of the value be written
#' @param as_ref should references to the cell be written
#' @param transpose should the data be written transposed
#' @returns the wbWorkbook invisibly
wb_copy_cells <- function(wb, sheet = 1, dims = "A1", data, as_value = FALSE, as_ref = FALSE, transpose = FALSE) {
  
  assert_workbook(wb)
  assert_class(dat, "wb_data")
  
  wb <- wb$clone(deep = TRUE)
  
  to_ncol <- ncol(data) - 1
  to_nrow <- nrow(data) - 1
  
  start_col <- col2int(dims)
  start_row <- as.integer(gsub("\\D+", "", dims))
  to_cols <- seq.int(start_col, start_col + to_ncol)
  to_rows <- seq.int(start_row, start_row + to_nrow)
           
  to_dims    <- rowcol_to_dims(to_rows, to_cols)
  to_dims_i  <- dims_to_dataframe(to_dims, fill = FALSE)
  to_dims    <- dims_to_dataframe(to_dims, fill = TRUE)
  if (transpose) {
    to_dims_i <- as.data.frame(t(to_dims_i))
    to_dims <- as.data.frame(t(to_dims))
  }
  
  to_dims <- unname(unlist(to_dims))
  
  from_sheet <- attr(data, "sheet")
  from_dims  <- attr(data, "dims")
  
  from_sheet <- wb_validate_sheet(wb, from_sheet)
  from_dims  <- as.character(unlist(from_dims))
  cc <- wb$worksheets[[from_sheet]]$sheet_data$cc
  
  if (as_value) {
    to_data <- data
    
    if (transpose) {
      data <- t(data)
    }
    
    wb$add_data(sheet = sheet, x = data, dims = to_dims[[1]], colNames = FALSE)
    
    return(invisible(wb))
  }
  
  # initialize dims we write to as empty cells
  wb$add_data(sheet = sheet, x = to_dims_i, dims = to_dims[[1]],
              na.strings = NULL, colNames = FALSE)
  
  to_cc <- cc[match(from_dims, cc$r), ]
  from_cells <- to_cc$r
  to_cc[c("r", "row_r", "c_r")] <- cbind(
    to_dims,
    gsub("\\D+", "", to_dims),
    int2col(col2int(to_dims))
  )
  
  if (as_ref) {
    from_sheet_name <- wb$get_sheet_names()[[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) 
  }
  
  cc <- wb$worksheets[[from_sheet]]$sheet_data$cc
  cc[match(to_dims, cc$r), ] <- to_cc
  
  wb$worksheets[[sheet]]$sheet_data$cc <- cc
  
  invisible(wb)
}


wb <- wb_workbook()$add_worksheet()$add_data(x = mtcars)$add_fill(dims = "A1:F1", color = wb_colour("yellow"))

dat <- wb_data(wb, dims = "A1:D4", colNames = FALSE)

# 1:1 copy to M2 
wb2 <- wb_copy_cells(wb, data = dat, dims = "M2", as_value = FALSE, as_ref = FALSE, transpose = FALSE)

# 1:1 transposed copy to A20
wb3 <- wb_copy_cells(wb, data = dat, dims = "A20", as_value = FALSE, as_ref = FALSE, transpose = TRUE)

# reference transposed copy to A20
wb4 <- wb_copy_cells(wb, data = dat, dims = "A20", as_value = FALSE, as_ref = TRUE, transpose = TRUE)

# value copy to A20
wb5 <- wb_copy_cells(wb, data = dat, dims = "A20", as_value = TRUE, as_ref = FALSE, transpose = FALSE)


# wb2$open()
# wb3$open()
# wb4$open()
# wb5$open()