try check.environment=FALSE in more tests

Author: jgabry

tests/testthat/test-convenience-functions.R

@@ -188,5 +188,3 @@ test_that("overlay_function returns the correct object", {
     check.environment = FALSE
   )
 })
-
-

tests/testthat/test-pp_check.R

@@ -8,11 +8,13 @@ test_that("default pp_check method works", {
 
   expect_equal(
     pp_check(y, yrep[1:50, ], ppc_dens_overlay),
-    ppc_dens_overlay(y, yrep[1:50, ])
+    ppc_dens_overlay(y, yrep[1:50, ]),
+    check.environment = FALSE
   )
   expect_equal(
     pp_check(y, yrep, fun = "stat_grouped", group = g, stat = "median"),
-    ppc_stat_grouped(y, yrep, group = g, stat = "median")
+    ppc_stat_grouped(y, yrep, group = g, stat = "median"),
+    check.environment = FALSE
   )
 })
 

tests/testthat/test-ppc-errors.R

@@ -26,10 +26,16 @@ test_that("ppc_error_scatter_avg returns ggplot2 object", {
 })
 
 test_that("ppc_error_scatter_avg same as ppc_error_scatter if nrow(yrep) = 1", {
-  expect_equal(ppc_error_scatter_avg(y2, yrep2),
-               ppc_error_scatter(y2, yrep2))
-  expect_equal(ppc_error_scatter_avg(y, yrep[1,, drop=FALSE]),
-               ppc_error_scatter(y, yrep[1,, drop = FALSE]))
+  expect_equal(
+    ppc_error_scatter_avg(y2, yrep2),
+    ppc_error_scatter(y2, yrep2),
+    check.environment = FALSE
+  )
+  expect_equal(
+    ppc_error_scatter_avg(y, yrep[1,, drop=FALSE]),
+    ppc_error_scatter(y, yrep[1,, drop = FALSE]),
+    check.environment = FALSE
+  )
 })
 
 test_that("ppc_error_scatter_avg_vs_x returns ggplot2 object", {

tests/testthat/test-ppc-scatterplots.R

@@ -15,10 +15,16 @@ test_that("ppc_scatter_avg returns ggplot object", {
 })
 
 test_that("ppc_scatter_avg same as ppc_scatter if nrow(yrep) = 1", {
-  expect_equal(ppc_scatter_avg(y2, yrep2),
-               ppc_scatter(y2, yrep2))
-  expect_equal(ppc_scatter_avg(y, yrep[1,, drop=FALSE]),
-               ppc_scatter(y, yrep[1,, drop = FALSE]))
+  expect_equal(
+    ppc_scatter_avg(y2, yrep2),
+    ppc_scatter(y2, yrep2),
+    check.environment = FALSE
+  )
+  expect_equal(
+    ppc_scatter_avg(y, yrep[1,, drop=FALSE]),
+    ppc_scatter(y, yrep[1,, drop = FALSE]),
+    check.environment = FALSE
+  )
 })
 
 test_that("ppc_scatter_avg_grouped returns a ggplot object", {