Move around with wb_dims() and left, right, above or below

[JanMarvin]

Resulting from a - as always - fruitful discussion with @olivroy in #1104 , find below an example how to move around with wb_dims() and position arguments (left, right, above, and below).

library(openxlsx2)

wb <- wb_workbook()$add_worksheet()

df1 <- mtcars[seq_len(10), seq_len(3)]

df2 <- as.data.frame(lapply(df1, prop.table))
df2$total <- rowSums(df2)

fml <- sprintf("SUM(%s)", wb_dims(x = df1, cols = 1))

dims_df1 <- wb_dims(x = df1)
dims_df2 <- wb_dims(x = df2, from_dims = dims_df1, right = 1)

dims_cnm <- wb_dims(x = cbind(df1, df2), select = "col_names")
dims_fml <- wb_dims(x = t(rep(fml, ncol(df1) + ncol(df2))), col_names = FALSE, from_dims = dims_df1, below = 2)

wb$
  add_font(dims = dims_cnm, bold = TRUE)$
  add_border(dims = dims_cnm)

wb$
  add_data(dims = dims_df1, x = df1)$
  add_fill(dims = dims_df1, color = wb_color("lightgray"))$
  add_numfmt(dims = dims_df1, numfmt = "#,###.0")$
  add_border(dims = dims_df1)

wb$
  add_data(dims = dims_df2, x = df2)$
  add_fill(dims = dims_df2, color = wb_color("lightblue"))$
  add_numfmt(dims = dims_df2, numfmt = "0.00%")$
  add_border(dims = dims_df2)

wb$add_formula(dims = dims_fml, x = fml, shared = TRUE)$
  add_border(dims = dims_fml)

wb$
  add_font(dims = dims_cnm, bold = TRUE)$
  add_border(dims = dims_cnm)

if (interactive()) wb$open()