[pivot tables] add show_data_as and compact/outline

[JanMarvin]

library(openxlsx2)

wb <- wb_workbook() %>% wb_add_worksheet() %>% wb_add_data(x = mtcars)

df <- wb_data(wb, sheet = 1)

wb <- wb %>%
  wb_add_pivot_table(
    df,
    dims = "A3",
    filter = "am",
    rows = "cyl",
    cols = "gear",
    data = "disp",
    params = list(
      show_data_as = c("percentOfRow"),
      numfmts = c(formatCode = "#.##%")
    )
  )

if (interactive()) wb$open()

[JanMarvin]

library(openxlsx2)

wb <- wb_workbook() %>% 
  wb_add_worksheet() %>%
  wb_add_data(x = mtcars, inline_strings = F)

wb$add_numfmt(dims = wb_dims(x = mtcars, cols = "disp"), numfmt = "$ #,###")

df <- wb_data(wb)

# basic pivot table with filter, rows, cols and data
wb$add_pivot_table(
  df,
  rows = "cyl", cols = "gear",
  data = c("disp", "hp"),
  fun = c("sum", "count"),
  params = list(
    numfmt = c(formatCode = "$ ###", formatCode = "#"),
    # tabular form
    compact = FALSE, outline = FALSE, compactData = "0",
    # disable totals
    rowGrandTotals = "0", colGrandTotals = "0"
  ))

if (interactive()) wb$open()