Charts vignette

[JanMarvin]

This includes changes in

• wb_add_plot() example and replaces the qplot() function with ggplot()
• changes wb_add_image() function to add_drawing() the previous did not work as expected in the example

[JanMarvin]

# unsure how to fix this case
wb <- wb_load("https://github.com/JanMarvin/openxlsx-data/raw/main/unemployment-nrw202208.xlsx")
wb$add_worksheet()

# should use sheet 23 with drawings  24
img <- system.file("extdata", "einstein.jpg", package = "openxlsx2")
wb$add_image(file = img, startRow = 5, startCol = 3, width = 6, height = 5)

[JanMarvin]

It's a bit late and I have confused myself a couple of times already. Maybe its fixed now:

img <- system.file("extdata", "einstein.jpg", package = "openxlsx2")

# works
wb <- wb_load("https://github.com/JanMarvin/openxlsx-data/raw/main/unemployment-nrw202208.xlsx")
wb$add_worksheet()
wb$add_image(file = img, startRow = 5, startCol = 3, width = 6, height = 5)

# works
wb <- wb_workbook()$add_worksheet()$add_worksheet()$add_worksheet()$
  add_image(1, file = img, startRow = 5, startCol = 3, width = 6, height = 5)$
  add_image(3, file = img, startRow = 5, startCol = 3, width = 6, height = 5)