R/copy_script.R

In RafaMariano/sits.rep: Reproducibility of satellite image time series analysis.

copy_script <- function(from, to, complete_path = TRUE){

  new_location_script <-  paste0(to, sep = "/", base::basename(from))
  base::file.copy(from, new_location_script, overwrite = TRUE, copy.date = TRUE)

  return(new_location_script)

}