leverage new vdiffr::expect_doppelganger() arg

Author: cpsievert

inst/docker/Dockerfile.vtest

@@ -86,7 +86,7 @@ RUN printf '#!/bin/bash \nxvfb-run --auto-servernum --server-args "-screen 0 640
 RUN chmod 777 /usr/bin/orca
 
 # install visual testing packages
-RUN R -e "devtools::install_github('cpsievert/vdiffr@diffObj')"
+RUN R -e "devtools::install_github('lionel-/vdiffr#48')"
 RUN R -e "devtools::install_github('brodieG/diffobj@development')"
 
 # switch on visual testing

tests/testthat/helper-vdiffr.R

@@ -20,7 +20,7 @@ if (enable_vdiffr) {
   }
 
   # define logic for writing svg in vdiffr
-  write_svg.plotly <- function(p, file, title, user_fonts = NULL) {
+  write_plotly_svg <- function(p, file, title) {
     # before exporting, specify trace[i].uid so resulting svg is deterministic
     # https://github.com/plotly/orca/issues/133
     p <- plotly_build(p)
@@ -58,7 +58,7 @@ expect_doppelganger <- function(p, name, ...) {
     # otherwise comparing svg produces false positives
     set.seed(555)
     if (ggplot2::is.ggplot(p)) p <- ggplotly(p)
-    vdiffr::expect_doppelganger(name, p, ...)
+    vdiffr::expect_doppelganger(name, p, ..., writer = write_plotly_svg)
   } else {
     invisible(NULL)
   }