Toying around with non consecutive dims

[JanMarvin]

Lately I came across this SO. This can be used as an example to apply the non consecutive dims functionality from #1019

library(openxlsx2)

## create example data set
data(mtcars)
dat         <- mtcars
dat$model   <- rownames(dat)
brand_split <- strsplit(dat$model, "\\s+")
dat$brand   <- sapply(brand_split, "[", 1)

# color data frame
color_df <- data.frame(
  model=c("Mazda RX4","Mazda RX4 Wag","Merc 230","Merc 240D","Merc 280","Merc 280C","Merc 450SE","Merc 450SL","Merc 450SLC","Fiat 128","Fiat X1-9"),
  color=c("red","red","blue","blue","green","green","yellow","yellow","yellow","purple","purple"))

# join both
dat$row_id  <- seq_len(nrow(dat))
dat         <- merge(dat, color_df , by="model", all = TRUE)

# order data frame
main_cols  <- c('model','brand','gear','carb')
other_cols <- names(dat)[!(names(dat) %in% main_cols)]
dat        <- dat[order(dat$row_id), c(main_cols, other_cols)]
dat$row_id <- NULL

## write data to spreadsheet
wb <- wb_workbook()$add_worksheet()$add_data(x = dat, na.strings = "")

for (col in unique(dat$color)) {
  
  if (is.na(col)) next
  
  wb$add_fill(dims = wb_dims(x = dat, rows = which(dat$color %in% col)), color = wb_color(col, tint = .8))
  
}

if (interactive()) wb$open()