Support {mschart}

[JanMarvin]

Corresponding PR to write mschart charts to openxlsx2 workbooks.

ardata-fr/mschart#79

library(mschart)
library(openxlsx2)

# write data starting at B2
wb <- wb_workbook()$add_worksheet()$
  add_data(x = mtcars, dims = "B2")$
  add_data(x = data.frame(name = rownames(mtcars)), dims = "A2")

# create wb_data object this will tell this mschart from this PR to create a file corresponding to openxlsx2
dat <- wb_data(wb, 1, dims = "A2:G6")

# call ms_scatterplot 
scatter_plot <- ms_scatterchart(
  data = dat,
  x = "mpg",
  y = c("disp", "hp"),
  labels = c("disp", "hp")
)

bar_plot <- ms_barchart(
  data = dat,
  x = "name",
  y = c("disp", "hp"),
  labels = c("disp", "hp")
)

area_plot <- ms_areachart(
  data = dat,
  x = "name",
  y = c("disp", "hp"),
  labels = c("disp", "hp")
)

line_plot <- ms_linechart(
  data = dat,
  x = "name",
  y = c("disp", "hp"),
  labels = c("disp", "hp")
)

# add the scatterplots to the data
wb <- wb %>% 
  wb_add_mschart(dims = "F4:L20", graph = scatter_plot) %>%
  wb_add_mschart(dims = "F21:L37", graph = bar_plot) %>%
  wb_add_mschart(dims = "M4:S20", graph = area_plot) %>%
  wb_add_mschart(dims = "M21:S37", graph = line_plot)

wb$open()

[JanMarvin]

Various things to do

[JanMarvin]

style plot or are barplots somehow special?

[JanMarvin]

Could use add_drawing code from #449