Add helper-state.R from packagetemplate

Author: Bisaloo

tests/testthat/helper-state.R

@@ -0,0 +1,22 @@
+# This helper ensures the package does not modify the session global state. As
+# per CRAN policy, packages should not interfere with the user's session state.
+# If global settings need to be modified, they should be restored to their
+# original values on exit. This can be achieved with the `on.exit()` base
+# function, or more conveniently with the `withr` package.
+testthat::set_state_inspector(function() {
+  list(
+    attached    = search(),
+    connections = getAllConnections(),
+    cwd         = getwd(),
+    envvars     = Sys.getenv(),
+    handlers    = globalCallingHandlers(),
+    libpaths    = .libPaths(),
+    locale      = Sys.getlocale(),
+    options     = options(),
+    par         = par(),
+    packages    = .packages(all.available = TRUE),
+    sink        = sink.number(),
+    timezone    = Sys.timezone(),
+    NULL
+  )
+})

tests/testthat/test-square_bracket.R

@@ -1,6 +1,7 @@
 test_that("tests for [ operator", {
   x <- make_linelist(cars, id = "speed", age = "dist")
-
+  on.exit(lost_tags_action())
+  
   # errors
   lost_tags_action("warning", quiet = TRUE)
   msg <- "The following tags have lost their variable:\n age:dist"
@@ -52,6 +53,7 @@ test_that("tests for [ operator", {
 })
 
 test_that("tests for [<- operator", {
+  on.exit(lost_tags_action())
 
   # errors
   lost_tags_action("warning", quiet = TRUE)
@@ -75,6 +77,7 @@ test_that("tests for [<- operator", {
 })
 
 test_that("tests for [[<- operator", {
+  on.exit(lost_tags_action())
 
   # errors
   lost_tags_action("warning", quiet = TRUE)
@@ -99,6 +102,7 @@ test_that("tests for [[<- operator", {
 })
 
 test_that("$<- operator detects tag loss", {
+  on.exit(lost_tags_action())
 
   # errors
   lost_tags_action("warning", quiet = TRUE)