Merge pull request #1098 from katrinabrock/1097

fix read_cmdstan_csv tilde issue

Author: jgabry

DESCRIPTION

@@ -48,6 +48,7 @@ Imports:
     rlang (>= 0.4.7)
 Suggests:
     bayesplot,
+    fs,
     ggplot2,
     knitr (>= 1.37),
     loo (>= 2.0.0),

R/csv.R

@@ -254,7 +254,7 @@ read_cmdstan_csv <- function(files,
         "\""
       )
     } else {
-      fread_cmd <- paste0("grep -v '^#' --color=never '", output_file, "'")
+      fread_cmd <- paste0("grep -v '^#' --color=never '", path.expand(output_file), "'")
     }
     if (length(sampler_diagnostics) > 0) {
       post_warmup_sd_id <- length(post_warmup_sampler_diagnostics) + 1

tests/testthat/test-csv.R

@@ -888,3 +888,11 @@ test_that("read_cmdstan_csv works if no variables are specified", {
     read_cmdstan_csv(fit_bernoulli_thin_1$output_files(), variables = "", sampler_diagnostics = "")
   )
 })
+
+test_that("read_cmdstan_csv() works with tilde expansion", {
+  skip_if(os_is_windows())
+  full_path <- test_path("resources", "csv", "model1-1-warmup.csv")
+  expect_no_error(read_cmdstan_csv(full_path))
+  tildified_path <- file.path("~", fs::path_rel(full_path, "~"))
+  expect_no_error(read_cmdstan_csv(tildified_path))
+})