R/Clam_pop_skeleton.R

#' Creates the folders structure for Clam population model
#'
#' @param userpath the path where forcing are located
#' @export
#'
#' @import matrixStats plotrix rstudioapi
#'


Clam_pop_skeleton<-function(userpath){

  workingpath=path.package("RAC", quiet = FALSE) # Save current location of R script

  # Create the folders structure in the path set by the user
  dir.create(paste0(userpath,"/Clam_population"),showWarnings=FALSE)
  dir.create(paste0(userpath,"/Clam_population/Inputs"),showWarnings=FALSE)
  dir.create(paste0(userpath,"/Clam_population/Inputs/Parameters"),showWarnings=FALSE)
  dir.create(paste0(userpath,"/Clam_population/Inputs/Forcings"),showWarnings=FALSE)
  dir.create(paste0(userpath,"/Clam_population/Inputs/Forcings_plots"),showWarnings=FALSE)
  dir.create(paste0(userpath,"/Clam_population/Inputs/Population_management"),showWarnings=FALSE)
  dir.create(paste0(userpath,"/Clam_population/Outputs"),showWarnings=FALSE)
  dir.create(paste0(userpath,"/Clam_population/Outputs/Out_csv"),showWarnings=FALSE)
  dir.create(paste0(userpath,"/Clam_population/Outputs/Out_plots"),showWarnings=FALSE)

  # Moves the selected data from the package folder to the user folder
  file.copy(paste0(workingpath,"/extdata/Clam_pop_data//Parameters.csv"),paste0(userpath,"/Clam_population/Inputs/Parameters"), overwrite=TRUE)
  file.copy(paste0(workingpath,"/extdata/Clam_pop_data//Water_temperature.csv"),paste0(userpath,"/Clam_population/Inputs/Forcings"), overwrite=TRUE)
  file.copy(paste0(workingpath,"/extdata/Clam_pop_data//Chlorophyll_a.csv"),paste0(userpath,"/Clam_population/Inputs/Forcings"), overwrite=TRUE)
  file.copy(paste0(workingpath,"/extdata/Clam_pop_data//POC.csv"),paste0(userpath,"/Clam_population/Inputs/Forcings"), overwrite=TRUE)
  file.copy(paste0(workingpath,"/extdata/Clam_pop_data//POM.csv"),paste0(userpath,"/Clam_population/Inputs/Forcings"), overwrite=TRUE)
  file.copy(paste0(workingpath,"/extdata/Clam_pop_data//TSM.csv"),paste0(userpath,"/Clam_population/Inputs/Forcings"), overwrite=TRUE)
  file.copy(paste0(workingpath,"/extdata/Clam_pop_data//Population.csv"),paste0(userpath,"/Clam_population/Inputs/Parameters"), overwrite=TRUE)
  file.copy(paste0(workingpath,"/extdata/Clam_pop_data//Management.csv"),paste0(userpath,"/Clam_population/Inputs/Population_management"), overwrite=TRUE)


  cat("Folder skeleton for Clam population model created at:\n")
  cat(userpath)
  cat("\n")
  cat("ATTENTION: Executing again this function will overwrite the files\n")

}

Try the RAC package in your browser

Any scripts or data that you put into this service are public.

RAC documentation built on May 2, 2019, 3:26 a.m.