keep R file convention with test file

Author: cderv

R/na-validation.R

@@ -0,0 +1,29 @@
+check_params_for_na <- function(params) {
+  # Recursively check for NA values
+  check_na_recursive <- function(x, path = "") {
+    if (is.list(x)) {
+      for (i in seq_along(x)) {
+        name <- names(x)[i] %||% as.character(i)
+        new_path <- if (path == "") name else paste0(path, "$", name)
+        check_na_recursive(x[[i]], new_path)
+      }
+    } else if (any(is.na(x) & !is.nan(x))) {
+      # Found NA values (excluding NaN which is mathematically valid)
+      na_positions <- which(is.na(x) & !is.nan(x))
+      n_na <- length(na_positions)
+
+      cli::cli_abort(c(
+        "{.code NA} values detected in parameter {.field {path}}",
+        "x" = "Found NA at position{if (n_na > 1) 's' else ''}: {.val {na_positions}}",
+        "i" = "Quarto CLI uses YAML 1.2 spec which cannot process R's {.code NA} values",
+        "i" = "R's {.code NA} gets converted to YAML strings (like {.code .na.real}) that Quarto doesn't recognize as missing values",
+        " " = "Consider these alternatives:",
+        "*" = "Remove NA values from your data before passing to Quarto",
+        "*" = "Use {.code NULL} instead of {.code NA} for missing optional parameters",
+        "*" = "Handle missing values within your document code using conditional logic"
+      ))
+    }
+  }
+
+  check_na_recursive(params)
+}

R/utils.R

@@ -14,35 +14,6 @@ yaml_handlers <- list(
   }
 )
 
-check_params_for_na <- function(params) {
-  # Recursively check for NA values
-  check_na_recursive <- function(x, path = "") {
-    if (is.list(x)) {
-      for (i in seq_along(x)) {
-        name <- names(x)[i] %||% as.character(i)
-        new_path <- if (path == "") name else paste0(path, "$", name)
-        check_na_recursive(x[[i]], new_path)
-      }
-    } else if (any(is.na(x) & !is.nan(x))) {
-      # Found NA values (excluding NaN which is mathematically valid)
-      na_positions <- which(is.na(x) & !is.nan(x))
-      n_na <- length(na_positions)
-
-      cli::cli_abort(c(
-        "{.code NA} values detected in parameter {.field {path}}",
-        "x" = "Found NA at position{if (n_na > 1) 's' else ''}: {.val {na_positions}}",
-        "i" = "Quarto parameters cannot contain NA values",
-        " " = "Consider these alternatives:",
-        "*" = "Remove NA values from your data before passing to Quarto",
-        "*" = "Use {.code NULL} instead of {.code NA} for missing optional parameters",
-        "*" = "Handle missing values within your document code using conditional logic"
-      ))
-    }
-  }
-
-  check_na_recursive(params)
-}
-
 #' @importFrom yaml as.yaml
 as_yaml <- function(x) {
   yaml::as.yaml(x, handlers = yaml_handlers)

tests/testthat/_snaps/na-validation.md

@@ -6,7 +6,8 @@
       Error in `check_na_recursive()`:
       ! `NA` values detected in parameter values
       x Found NA at position: 2
-      i Quarto parameters cannot contain NA values
+      i Quarto CLI uses YAML 1.2 spec which cannot process R's `NA` values
+      i R's `NA` gets converted to YAML strings (like `.na.real`) that Quarto doesn't recognize as missing values
         Consider these alternatives:
       * Remove NA values from your data before passing to Quarto
       * Use `NULL` instead of `NA` for missing optional parameters
@@ -20,7 +21,8 @@
       Error in `check_na_recursive()`:
       ! `NA` values detected in parameter data$subset
       x Found NA at position: 2
-      i Quarto parameters cannot contain NA values
+      i Quarto CLI uses YAML 1.2 spec which cannot process R's `NA` values
+      i R's `NA` gets converted to YAML strings (like `.na.real`) that Quarto doesn't recognize as missing values
         Consider these alternatives:
       * Remove NA values from your data before passing to Quarto
       * Use `NULL` instead of `NA` for missing optional parameters
@@ -34,7 +36,8 @@
       Error in `check_na_recursive()`:
       ! `NA` values detected in parameter x
       x Found NA at positions: 2 and 4
-      i Quarto parameters cannot contain NA values
+      i Quarto CLI uses YAML 1.2 spec which cannot process R's `NA` values
+      i R's `NA` gets converted to YAML strings (like `.na.real`) that Quarto doesn't recognize as missing values
         Consider these alternatives:
       * Remove NA values from your data before passing to Quarto
       * Use `NULL` instead of `NA` for missing optional parameters