tests/testthat/test-areachart.R

In mschart: Chart Generation for 'Microsoft Word', 'Microsoft Excel' and 'Microsoft PowerPoint' Documents

test_that("areachart has no dLblPos in series", {
  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 <- xml2::read_xml(xml)
  dLblPos <- xml2::xml_find_all(chart, "//c:ser/c:dLbls/c:dLblPos")

  expect_true(length(dLblPos) < 1)
})