[merge_cells] allow splitting into dimensions

R/class-workbook-wrappers.R

@@ -903,6 +903,7 @@ wb_copy_cells <- function(
 #' @param sheet A name or index of a worksheet
 #' @param dims worksheet cells
 #' @param solve logical if intersecting merges should be solved
+#' @param direction direction in which to split the cell merging. Allows "row" or "col"
 #' @param ... additional arguments
 #'
 #' @examples
@@ -934,9 +935,9 @@ wb_copy_cells <- function(
 #' @family workbook wrappers
 #' @family worksheet content functions
 #' @export
-wb_merge_cells <- function(wb, sheet = current_sheet(), dims = NULL, solve = FALSE, ...) {
+wb_merge_cells <- function(wb, sheet = current_sheet(), dims = NULL, solve = FALSE, direction = NULL, ...) {
   assert_workbook(wb)
-  wb$clone(deep = TRUE)$merge_cells(sheet = sheet, dims = dims, solve = solve, ... = ...)
+  wb$clone(deep = TRUE)$merge_cells(sheet = sheet, dims = dims, solve = solve, direction = direction, ... = ...)
 }
 
 #' @export

R/class-workbook.R

@@ -5256,8 +5256,9 @@ wbWorkbook <- R6::R6Class(
     #' @description
     #' Set cell merging for a sheet
     #' @param solve logical if intersecting cells should be solved
+    #' @param direction direction in which to split the cell merging. Allows "row" or "col".
     #' @return The `wbWorkbook` object, invisibly
-    merge_cells = function(sheet = current_sheet(), dims = NULL, solve = FALSE, ...) {
+    merge_cells = function(sheet = current_sheet(), dims = NULL, solve = FALSE, direction = NULL, ...) {
 
       cols <- list(...)[["cols"]]
       rows <- list(...)[["rows"]]
@@ -5273,17 +5274,8 @@ wbWorkbook <- R6::R6Class(
         dims <- rowcol_to_dims(rows, cols)
       }
 
-      ddims <- dims_to_rowcol(dims)
-
-      rows <- ddims[[2]]
-      cols <- ddims[[1]]
-
       sheet <- private$get_sheet_index(sheet)
-      self$worksheets[[sheet]]$merge_cells(
-        rows   = rows,
-        cols   = cols,
-        solve  = solve
-      )
+      self$worksheets[[sheet]]$merge_cells(dims = dims, solve = solve, direction = direction)
       invisible(self)
     },
 

R/class-worksheet.R

@@ -514,8 +514,14 @@ wbWorksheet <- R6::R6Class(
     #' Set cell merging for a sheet
     #' @param rows,cols Row and column specifications.
     #' @param solve logical if intersects should be solved
+    #' @param direction direction in which to split
     #' @return The `wbWorkbook` object, invisibly
-    merge_cells = function(rows = NULL, cols = NULL, solve = FALSE) {
+    merge_cells = function(dims = NULL, solve = FALSE, direction = NULL) {
+
+      ddims <- dims_to_rowcol(dims)
+
+      rows <- ddims[[2]]
+      cols <- ddims[[1]]
 
       rows <- range(as.integer(rows))
       cols <- range(col2int(cols))
@@ -556,6 +562,12 @@ wbWorksheet <- R6::R6Class(
         }
       }
 
+      if (!is.null(direction)) {
+        if (direction == "row") direction <- 1
+        if (direction == "col") direction <- 2
+        sqref <- split_dims(sqref, direction = direction)
+      }
+
       self$append("mergeCells", sprintf('<mergeCell ref="%s"/>', sqref))
 
       invisible(self)

openxlsx2.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: d6ecb160-ba3b-42c4-8c47-059500a3b4de
 
 RestoreWorkspace: Default
 SaveWorkspace: Default