Manually making expect_doppleganger alias

tests/testthat.R

@@ -1,6 +1,19 @@
 library(testthat)
-library(vdiffr)
 library(ggplot2)
 library(ggside)
 
+if ((nzchar(Sys.getenv("CI")) ||
+     !nzchar(Sys.getenv("NOT_CRAN"))) &&
+    identical(Sys.getenv("VDIFFR_RUN_TESTS"), 'false')) {
+  #if we are running tests remotely AND
+  # we are opting out of using vdiffr
+  # assigning a dummy function
+
+  expect_doppelganger <- function(...) {
+    testthat::skip("`VDIFFR_RUN_TESTS` set to false on this remote check")
+  }
+} else {
+  expect_doppelganger <- vdiffr::expect_doppelganger
+}
+
 test_check("ggside")