finished making changes as requested by Ripley, tests all pass, this …

…version submitted to CRAN
reumandc · Jan 8, 2021 · f8f7a72 · f8f7a72
1 parent 9d5f866
commit f8f7a72
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -20,5 +20,7 @@ Suggests:
     rmarkdown,
     testthat,
     vdiffr
-VignetteBuilder: knitr
+VignetteBuilder: 
+    knitr,
+    rmarkdown
 RoxygenNote: 7.1.0
diff --git a/tests/testthat/helper-utils.R b/tests/testthat/helper-utils.R
@@ -0,0 +1,7 @@
+#Provided by Lionel Henry
+expect_doppelganger <- function(title, fig, path = NULL, ...) 
+{
+  testthat::skip_if_not_installed("vdiffr")
+  vdiffr::expect_doppelganger(title, fig, path = path, ...)
+}
+
diff --git a/tests/testthat/tests_tsvreq_classic_methods.R b/tests/testthat/tests_tsvreq_classic_methods.R
@@ -52,5 +52,5 @@ test_that("test the plot method",{
   inp<-tsvreq_classic(X)
 
   Test_plot_tsvreq_classic<-function(){plot(inp)}  
-  vdiffr::expect_doppelganger(title="Test-plot-tsvreq-classic",fig=Test_plot_tsvreq_classic)
+  expect_doppelganger(title="Test-plot-tsvreq-classic",fig=Test_plot_tsvreq_classic)
 })
diff --git a/tests/testthat/tests_tsvreq_methods.R b/tests/testthat/tests_tsvreq_methods.R
@@ -49,6 +49,6 @@ test_that("test the plot method",{
   inp<-tsvreq(ts=1:10,com=c(10:1)*rep(2,10),comnull=rep(2,10),tsvr=10:1,wts=2*c(1:10))
 
   Test_plot_tsvreq<-function(){plot(inp)}  
-  vdiffr::expect_doppelganger(title="Test-plot-tsvreq",fig=Test_plot_tsvreq)
+  expect_doppelganger(title="Test-plot-tsvreq",fig=Test_plot_tsvreq)
 })