Enable S7 pre-4.3. (#25)

* Enable S7 pre-4.3.

This won't be needed soon, but I want to make my checks happy until that fix is merged.

* Get rid of unneeded snapshot.

The cleaner has strangeness specfiically for the snapshot quotes. I'll work on getting rid of that later.

NAMESPACE

@@ -3,6 +3,7 @@
 export(generate_pkg)
 export(pkg_agent)
 export(use_beekeeper)
+if (getRversion() < "4.3.0") importFrom("S7", "@")
 importFrom(glue,glue)
 importFrom(nectar,call_api)
 importFrom(rapid,as_rapid)

R/zzz.R

@@ -1,3 +1,7 @@
 .onLoad <- function(...) {
   S7::methods_register() # nocov
 }
+
+# enable usage of <S7_object>@name in package code
+#' @rawNamespace if (getRversion() < "4.3.0") importFrom("S7", "@")
+NULL

tests/testthat/test-use_beekeeper.R

@@ -22,9 +22,13 @@ test_that("config writes a yml", {
   expect_identical(test_result, config_path)
   reread_rapid <- readRDS(rapid_write_path)
   expect_identical(guru_rapid, reread_rapid)
-  test_result_file <- readLines(config_path)
-  expect_snapshot(
+  test_result_file <- scrub_config(readLines(config_path))
+  expected_result_file <- scrub_config(
+    readLines(test_path("_fixtures", "guru_beekeeper.yml"))
+  )
+  expected_result_file[[4]] <- "rapid_file: RAPID_FILE_PATH\""
+  expect_identical(
     test_result_file,
-    transform = scrub_config
+    expected_result_file
   )
 })