inst/tinytest/test_areachart.R

In ardata-fr/mschart: Chart Generation for 'Microsoft Word' and 'Microsoft PowerPoint' Documents

library(mschart)
library(officer)
library(xml2)

# example areachart -------
chart_01 <- ms_areachart(data = browser_ts, x = "date", y = "freq", group = "browser")
chart_01 <- chart_ax_x(chart_01, num_fmt = "m/d/yy", rotation = -90)
chart_01 <- chart_data_labels(chart_01, show_val = TRUE)
chart_01 <- chart_labels_text( chart_01, values = fp_text(font.size = 7, color = "red") )

xml <- format(
  chart_01,
  sheetname = "sheet1",
  id_x = "64451212",
  id_y = "64453248"
)

chart <- read_xml(xml)
dLblPos <- xml_find_all(chart, "//c:ser/c:dLbls/c:dLblPos")

# test that no dLblPos is found in the series
expect_true(length(dLblPos) < 1)