Format true/false to 1/0 in csv read

Author: andrjohns

.github/workflows/R-CMD-check-wsl.yaml

@@ -61,7 +61,7 @@ jobs:
       - name: Install cmdstan
         run: |
           cmdstanr::check_cmdstan_toolchain(fix = TRUE)
-          cmdstanr::install_cmdstan(cores = 2, wsl = TRUE, overwrite = TRUE)
+          cmdstanr::install_cmdstan(cores = 2, wsl = TRUE, overwrite = TRUE, version = "2.35.0-rc2")
         shell: Rscript {0}
 
       - name: Session info

.github/workflows/R-CMD-check.yaml

@@ -63,7 +63,7 @@ jobs:
       - name: Install cmdstan
         run: |
           cmdstanr::check_cmdstan_toolchain(fix = TRUE)
-          cmdstanr::install_cmdstan(cores = 2)
+          cmdstanr::install_cmdstan(cores = 2, version = "2.35.0-rc2")
         shell: Rscript {0}
 
       - name: Session info

.github/workflows/Test-coverage.yaml

@@ -52,7 +52,7 @@ jobs:
       - name: Install cmdstan
         run: |
           cmdstanr::check_cmdstan_toolchain(fix = TRUE)
-          cmdstanr::install_cmdstan(cores = 2)
+          cmdstanr::install_cmdstan(cores = 2, version = "2.35.0-rc2")
         shell: Rscript {0}
 
       - name: Test coverage (Linux)

R/csv.R

@@ -840,6 +840,14 @@ read_csv_metadata <- function(csv_file) {
     csv_file_info$fitted_params <- wsl_safe_path(csv_file_info$fitted_params,
                                                   revert = TRUE)
   }
+  csv_file_info <- lapply(csv_file_info, function(item) {
+    if (is.character(item) && length(item) == 1) {
+      if (item %in% c("true", "false")) {
+        item <- as.integer(as.logical(item))
+      }
+    }
+    item
+  })
   csv_file_info
 }