suppress warnings from as.numeric(inv_metric) if no parameters

stan-dev · Nov 25, 2024 · c341a4b · c341a4b
1 parent ec5d9b3
commit c341a4b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/csv.R b/R/csv.R
@@ -719,7 +719,7 @@ read_csv_metadata <- function(csv_file) {
         dense_inv_metric <- TRUE
       } else if (inv_metric_next) {
         inv_metric_split <- strsplit(gsub("# ", "", line), ",")
-        numeric_inv_metric_split <- rapply(inv_metric_split, as.numeric)
+        numeric_inv_metric_split <- suppressWarnings(rapply(inv_metric_split, as.numeric))
         if (inv_metric_rows == -1 && dense_inv_metric) {
           inv_metric_rows <- length(inv_metric_split[[1]])
           inv_metric_rows_to_read <- inv_metric_rows