R/nbr_new.R

In pietrodito/numbr: Number Your Scripts

#' Create a new script and numbers it with the first integer not used in 
#' the directory. After creation the file is open for edition.
#' 
#' @param name (chr) The script file name (without number)
#' @param dir (chr) The target directory (default = "R")
#' @param edit_file (lgl) If TRUE the file will be open (default = T)
#' 
#' @export 
nbr_new <- function(name, dir = "R", edit_file = T) {
  nbs <- list_r_numbered_files(dir)$numbers

  first_gap <- 0
  if (length(nbs) == 0)
    first_gap <- 1
  else {
    first_integers <- seq_along(nbs)
    discordant <- which(!(first_integers == nbs))
    if(length(discordant) == 0)
      first_gap <- length(nbs) + 1
    else
      first_gap <- min(discordant)
  }
  new_file <- paste0(dir, "/", first_gap, "-", name, ".R")
  
  fs::file_create(new_file)
  add_leading_zero(dir)
  message(paste0("File created: ", new_file))
    
  if(edit_file)
    if(Sys.getenv("RSTUDIO") == "1")
      rstudioapi::navigateToFile(new_file)
  else
      utils::file.edit(new_file)
}