Check for open RStudio Projects that have the same name (macOS only for now)

check-rproj-dupes.R

check_rproj_dupes <- function() {
  
  os <- .Platform$OS.type
  
  if (os == "unix") {
    
    ps_out <- system("ps -e", intern = TRUE)
    ps_rproj <- ps_out[grepl(".Rproj", ps_out)]
    ps_split <- strsplit(ps_rproj, "\\s")
    rproj_paths <- lapply(ps_split, function(x) x[grepl(".Rproj$", x)])
    rproj_basenames <- lapply(rproj_paths, basename)
    rproj_dupes <- unlist(rproj_basenames[duplicated(rproj_basenames)])
    
  }
  
  if (os == "windows") {
    stop("Sorry, check_rproj_dupes() doesn't work on Windows yet :-(")
  }
  
  if (length(rproj_dupes) > 0) {
    warning(
      "You've got open RStudio Projects with the same name:\n",
      paste("-", rproj_dupes, collapse = "\n"),
      call. = FALSE
    )
  }
  
}

check_rproj_dupes()