R/duplicate_template.R

In prpatil/tdsm: Templated Deterministic Statistical Machines

#'
#' Duplicate a report template
#'
#' @param analysis A character string specifing the type of analysis desired. Current options are: "tsp".
#'
#' @export
#'
#' @details This function duplicates an existing report template should the 
#' user decide to make edits to any portion of the standard template. The function
#' will pop-up a file chooser dialog box so that the user may select a directory
#' in which to create the duplicated file. PLEASE name your file "[filename].Rmd" - the system will
#' create an empty file for you and copy the contents of the orignal template into it.
#' We encourage the user to use the "diff_report" command if they make changes to the original report.
#' 
#' @return The file path to the duplicated file, should the user later desire to
#' supply it to "diff_template".

duplicate_template <- function(analysis){

	if(!(analysis %in% c("tsp"))){
		stop("Invalid analysis class specified")
	}

	analysis_path <- normalizePath(system.file(paste0(analysis, "_template.Rmd"), package="tdsm"))
	newfile_path <- file.choose()

	if(.Platform$OS.type == "windows"){
		shell(paste0("copy ", analysis_path, " ", newfile_path))
	} else {
		system(paste0("cp ", analysis_path, " ", newfile_path))	
	}
	
	newfile_path
}