Merge pull request #661 from stan-dev/fix-grep-windows

Fix finding grep.exe path on Windows

Author: rok-cesnovar

R/csv.R

@@ -227,8 +227,19 @@ read_cmdstan_csv <- function(files,
   num_post_warmup_draws <- ceiling(metadata$iter_sampling / metadata$thin)
   for (output_file in files) {
     if (os_is_windows()) {
-      grep_path <- paste0('"', repair_path(Sys.which("grep.exe")), '"')
-      fread_cmd <- paste0(grep_path, " -v '^#' --color=never '", output_file, "'")
+      grep_path_repaired <- withr::with_path(
+        c(
+          toolchain_PATH_env_var()
+        ),
+        repair_path(Sys.which("grep.exe"))
+      )
+      grep_path_quotes <- paste0('"', grep_path_repaired, '"')
+      fread_cmd <- paste0(
+        grep_path_quotes,
+        " -v '^#' --color=never '",
+        output_file,
+        "'"
+      )
     } else {
       fread_cmd <- paste0("grep -v '^#' --color=never '", output_file, "'")
     }
@@ -558,8 +569,19 @@ read_csv_metadata <- function(csv_file) {
   sampling_time <- 0
   total_time <- 0
   if (os_is_windows()) {
-    grep_path <- paste0('"', repair_path(Sys.which("grep.exe")), '"')
-    fread_cmd <- paste0(grep_path, " '^[#a-zA-Z]' --color=never '", csv_file, "'")
+    grep_path_repaired <- withr::with_path(
+      c(
+        toolchain_PATH_env_var()
+      ),
+      repair_path(Sys.which("grep.exe"))
+    )
+    grep_path_quotes <- paste0('"', grep_path_repaired, '"')
+    fread_cmd <- paste0(
+      grep_path_quotes,
+      " '^[#a-zA-Z]' --color=never '",
+      csv_file,
+      "'"
+    )
   } else {
     fread_cmd <- paste0("grep '^[#a-zA-Z]' --color=never '", csv_file, "'")
   }