replace yaml pkg with yaml12 fix #556

Author: sckott

DESCRIPTION

@@ -35,7 +35,7 @@ Imports:
     rlang (>= 1.1.0),
     rprojroot,
     waldo,
-    yaml
+    yaml12
 Suggests:
     crul (>= 1.6.0),
     desc,

R/serializer.R

@@ -25,7 +25,7 @@ Serializer <- R6::R6Class(
     ) {
       self$file_extension <- ext
       self$path <- paste0(path, "/", name, self$file_extension)
-      self$preserve_bytes = preserve_bytes
+      self$preserve_bytes <- preserve_bytes
       self$matchers <- matchers
     },
     serialize = function(data) NULL,
@@ -98,11 +98,11 @@ YAML <- R6::R6Class(
         preserve_bytes = self$preserve_bytes,
         matchers = self$matchers
       )
-      yaml::write_yaml(out, self$path)
+      yaml12::write_yaml(out, self$path)
     },
 
     deserialize = function() {
-      input <- yaml::read_yaml(self$path)
+      input <- yaml12::read_yaml(self$path)
       decode_interactions(input, self$preserve_bytes)
     }
   )

R/vcr-package.R

@@ -33,6 +33,5 @@ NULL
 
 # https://r-pkgs.org/dependencies-in-practice.html#how-to-not-use-a-package-in-imports
 ignore_unused_imports <- function() {
-  yaml::read_yaml
   R6::R6Class
 }

tests/testthat/_snaps/serializer.md

@@ -38,16 +38,18 @@
     Code
       writeLines(readLines(ser$path))
     Output
+      ---
       http_interactions:
-      - request:
-          method: GET
-          uri: http://example.com/
-        response:
-          status: 200
-          headers:
-            name: val
-          body:
-            string: body
-        recorded_at: 2024-01-01 12:00:00
+        - request:
+            method: GET
+            uri: "http://example.com/"
+          response:
+            status: 200
+            headers:
+              name: val
+            body:
+              string: body
+          recorded_at: "2024-01-01 12:00:00"
       recorded_with: VCR-<package_versions>
+      ...
 

tests/testthat/helper-vcr.R

@@ -95,7 +95,7 @@ read_yaml <- function(path) {
   if (!file.exists(path)) {
     cli::cli_abort("{.path {path}} does not exist.")
   }
-  yaml::yaml.load_file(path)
+  yaml12::read_yaml(path)
 }
 
 testthat::set_state_inspector(\() {

tests/testthat/test-serializer.R

@@ -234,14 +234,14 @@ test_that("YAML usage", {
   expect_equal(basename(z$path), "name.yml")
 
   # before file exists:
-  expect_error(suppressWarnings(z$deserialize()), "cannot open")
+  expect_error(z$deserialize(), "Failed to read")
 
   # after file exists, before any yaml in it:
   file.create(z$path)
   expect_equal(z$deserialize(), list())
   # after file exists, with yaml in it, with incomplete final line:
   cat("foo: 123\nbar: 456", file = z$path)
-  expect_warning(z$deserialize(), "incomplete final line")
+  expect_type(z$deserialize(), "list")
   # after file exists, with yaml in it, without incomplete final line:
   cat("foo: 123\nbar: 456\n", file = z$path)
   expect_type(z$deserialize(), "list")