Merge pull request #651 from stan-dev/ignore-other-directories-in-.cmdstan

jgabry · web-flow · commit c39aeb44cc51 · 2022-05-04T15:38:34.000-06:00
in cmdstan_default_path() ignore other directories in .cmdstan
diff --git a/R/path.R b/R/path.R
@@ -145,6 +145,7 @@ cmdstan_default_path <- function(old = FALSE, dir = NULL) {
       cmdstan_installs <- list.dirs(path = installs_path, recursive = FALSE, full.names = FALSE)
     }
     if (length(cmdstan_installs) > 0) {
+      cmdstan_installs <- grep("^cmdstan-", cmdstan_installs, value = TRUE)
       latest_cmdstan <- sort(cmdstan_installs, decreasing = TRUE)[1]
       if (is_release_candidate(latest_cmdstan)) {
         non_rc_path <- strsplit(latest_cmdstan, "-rc")[[1]][1]

Original file line number	Diff line number	Diff line change
`@@ -145,6 +145,7 @@ cmdstan_default_path <- function(old = FALSE, dir = NULL) {`
`145`	`145`	`cmdstan_installs <- list.dirs(path = installs_path, recursive = FALSE, full.names = FALSE)`
`146`	`146`	`}`
`147`	`147`	`if (length(cmdstan_installs) > 0) {`
	`148`	`+ cmdstan_installs <- grep("^cmdstan-", cmdstan_installs, value = TRUE)`
`148`	`149`	`latest_cmdstan <- sort(cmdstan_installs, decreasing = TRUE)[1]`
`149`	`150`	`if (is_release_candidate(latest_cmdstan)) {`
`150`	`151`	`non_rc_path <- strsplit(latest_cmdstan, "-rc")[[1]][1]`