tests: init visual testing

DESCRIPTION

@@ -33,4 +33,4 @@ URL: https://ardata-fr.github.io/officeverse/, https://ardata-fr.github.io/mscha
 BugReports: https://github.com/ardata-fr/mschart/issues
 RoxygenNote: 7.2.2
 Roxygen: list(markdown = TRUE)
-Suggests: tinytest
+Suggests: tinytest, doconv

inst/tinytest/test_areachart.R

@@ -21,3 +21,15 @@ 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)
 
+if (require("doconv")) {
+  using(doconv)
+  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)
+  pptx_file <- tempfile(fileext = ".pptx")
+  doc <- read_pptx()
+  doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
+  doc <- ph_with(doc, value = chart_01, location = ph_location_fullsize())
+  print(doc, target = pptx_file)
+  expect_snapshot_doc(x = pptx_file,name = "areachart-data-labels", engine = "tinytest")
+
+}

inst/tinytest/test_linechart.R

@@ -9,7 +9,6 @@ dat <- data.frame(
   stringsAsFactors=F)
 
 
-# example areachart -------
 chart_01 <- ms_linechart(data = dat, x = "musician", y = "count", group = "color")
 
 settings <- c(green = 1L, unclear = 0L, gray = 0L)
@@ -33,3 +32,14 @@ smooth_data <- smooth_data[order(names(smooth_data))]
 
 expect_equivalent(settings, smooth_data)
 
+
+if (require("doconv")) {
+  using(doconv)
+  pptx_file <- tempfile(fileext = ".pptx")
+  doc <- read_pptx()
+  doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
+  doc <- ph_with(doc, value = chart_01, location = ph_location_type(type = "body"))
+  print(doc, target = pptx_file)
+
+  expect_snapshot_doc(x = pptx_file,name = "linechart-data-smooth", engine = "tinytest")
+}