R/add_snippets.R

In ThinkR-open/shinysnippets: RStudio Snippets for Shiny Devs

#' Add the snippets to your ~/.R/snippets/r.snippets
#'
#' @param rs Path to R snippets
#' 
#' @return A message about the success of the copy.
#' @export
#'
#' @examples
#' \dontrun{
#' add_snippets()
#' }

add_snippets <- function(rs = "~/.R/snippets/r.snippets"){
  
  res <- FALSE
  
  if (! file.exists(rs)){
    message(paste(rs,"does not exist."))
    message("Create it?")
    x <- readline("Type Y/y to confirm. ")
    
    if (tolower(x) == "y"){
      dir.create(dirname(rs),recursive = TRUE,showWarnings = FALSE)
      file.create(rs)
    } else {
      message("Copy not done")
      return(invisible(res))
    }
  }
  
  message(paste("This command will write in",rs))
  message("Do you wish to continue?")
  x <- readline("Type Y/y to confirm. ")
  
  if (tolower(x) == "y"){
    res <- file.append(rs, 
                system.file("snippets.txt", 
                            package = "shinysnippets"))
  }
  if (res){
    message("Done!")
    message("Restart RStudio to have access to the snippets.")
  } else {
    message("Copy not done")
    return(invisible(res))
  }
}