Use standard test setup (#14)

Author: steffilazerte

R/test_utils.R

@@ -4,6 +4,51 @@ expect_snapshot_leaflet <- function(map) {
 }
 
 
-system_os <- function() {
-  tolower(Sys.info()[["sysname"]])
+expect_equal_to_ggplot_reference <- function(object, file, info = NULL) {
+  if (!file.exists(file)) {
+    ggplot2::ggsave(file, object, width = 5, height = 5, dpi = 300)
+    succeed()
+  } else {
+    ggplot2::ggsave("temp.png", object, width = 5, height = 5, dpi = 300)
+    reference <- png::readPNG(file)
+    object <- png::readPNG("temp.png")
+    if (length(reference) == length(object)) {
+      object <- object + 1
+      reference <- reference + 1
+      diff <- abs(object - reference) / reference
+      # Proportion of pixels more than 5% different
+      diff <- 100 - (sum(diff > 0.05) / length(object) * 100)
+    } else {
+      diff <- 0
+    }
+    testthat::expect_gt(diff, 98, "Figures not equal")
+    file.remove("temp.png")
+  }
+  invisible(object)
+}
+
+expect_equal_to_leaflet_reference <- function(object, file, info = NULL) {
+  if (!file.exists(file)) {
+    saveRDS(object, file)
+    testthat::succeed()
+  } else {
+    ref <- readRDS(file)
+
+    ref$dependencies <- NA
+    object$dependencies <- NA
+
+    ref$x$calls[[1]]$args[[1]] <- NA
+    object$x$calls[[1]]$args[[1]] <- NA
+
+    ref$x$calls[[1]]$args[[4]]$attribution <- NA
+    object$x$calls[[1]]$args[[4]]$attribution <- NA
+
+    comp <- compare(object, ref)
+    testthat::expect(
+      comp$equal,
+      sprintf("Object not equal to reference.\n%s", comp$message),
+      info = info
+    )
+  }
+  invisible(object)
 }