to_yaml() outputs verbatim true/false (#1)

NEWS.md

@@ -0,0 +1,5 @@
+# plume (development version)
+
+## Bug fixes
+
+* `to_yaml()` now outputs verbatim `true`/`false` (#1).

R/yaml.R

@@ -28,6 +28,11 @@ separate_yaml_header <- function(text) {
   stringr::str_split(text, "(?:^|\\R)-{3}(?:\\R|$)")[[1]]
 }
 
+as_verbatim_lgl <- function(x) {
+  x <- if_else(x, "true", "false")
+  structure(x, class = "verbatim")
+}
+
 yaml_inject <- function(lines, replacement) {
   if (length(lines) < 3L) {
     abort_input_check(msg = c(
@@ -36,7 +41,12 @@ yaml_inject <- function(lines, replacement) {
     ))
   }
   line_break <- line_break()
-  yaml <- as.yaml(replacement, line.sep = line_break, indent.mapping.sequence = TRUE)
+  yaml <- as.yaml(
+    replacement,
+    line.sep = line_break,
+    indent.mapping.sequence = TRUE,
+    handlers = list(logical = as_verbatim_lgl)
+  )
   out <- replace(lines, 2, yaml)
   paste0(out, collapse = paste0("---", line_break))
 }

README.md

@@ -92,7 +92,7 @@ aut$to_yaml("file.qmd")
         number: 00 00 00 01
         note: born in 1713 in Langres
         attribute:
-          corresponding: yes
+          corresponding: true
         affiliations:
           - ref: aff1
       - id: aut2
@@ -101,7 +101,7 @@ aut$to_yaml("file.qmd")
           family: Rousseau
         email: [email protected]
         attribute:
-          corresponding: no
+          corresponding: false
         affiliations:
           - ref: aff2
       - id: aut3
@@ -111,7 +111,7 @@ aut$to_yaml("file.qmd")
         email: [email protected]
         note: also known as Voltaire
         attribute:
-          corresponding: no
+          corresponding: false
         affiliations:
           - ref: aff2
       - id: aut4
@@ -121,7 +121,7 @@ aut$to_yaml("file.qmd")
         email: [email protected]
         note: born in 1717 in Paris
         attribute:
-          corresponding: yes
+          corresponding: true
         affiliations:
           - ref: aff1
           - ref: aff3

tests/testthat/yaml-headers.txt

@@ -9,7 +9,7 @@ author:
     number: '00'
     note: a
     attribute:
-      corresponding: yes
+      corresponding: true
     affiliations:
       - ref: aff1
       - ref: aff2
@@ -19,7 +19,7 @@ author:
       family: Zz
     email: [email protected]
     attribute:
-      corresponding: no
+      corresponding: false
     affiliations:
       - ref: aff3
   - id: aut3
@@ -29,7 +29,7 @@ author:
     email: [email protected]
     note: b
     attribute:
-      corresponding: no
+      corresponding: false
     affiliations:
       - ref: aff1
       - ref: aff4
@@ -59,7 +59,7 @@ author:
       family: Zz
     email: [email protected]
     attribute:
-      corresponding: yes
+      corresponding: true
     affiliations:
       - ref: aff1
   - id: aut2
@@ -69,7 +69,7 @@ author:
     email: [email protected]
     note: b
     attribute:
-      corresponding: no
+      corresponding: false
     affiliations:
       - ref: aff2
       - ref: aff3
@@ -81,7 +81,7 @@ author:
     number: '00'
     note: a
     attribute:
-      corresponding: no
+      corresponding: false
     affiliations:
       - ref: aff3
       - ref: aff4