Nothing
#' Creates the folders structure for Mussel spatialized model
#'
#' @param userpath the path where forcing are located
#' @export
#'
#' @import matrixStats plotrix rstudioapi
#'
Mussel_spatial_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,"/Mussel_spatial"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Inputs"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Inputs/Parameters"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Inputs/Point forcings"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Inputs/Spatial forcings"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Inputs/Forcings_plots"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Outputs"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Outputs/Out_asc"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Outputs/Out_nc"),showWarnings=FALSE)
dir.create(paste0(userpath,"/Mussel_spatial/Outputs/Out_csv"),showWarnings=FALSE)
# Moves the selected data from the package folder to the user folder
file.copy(paste0(workingpath,"/extdata/Mussel_spatial_data//Parameters.csv"),paste0(userpath,"/Mussel_spatial/Inputs/Parameters"), overwrite=TRUE)
file.copy(paste0(workingpath,"/extdata/Mussel_spatial_data//POC.csv"),paste0(userpath,"/Mussel_spatial/Inputs/Point forcings"), overwrite=TRUE)
file.copy(paste0(workingpath,"/extdata/Mussel_spatial_data//POC_characterization.csv"),paste0(userpath,"/Mussel_spatial/Inputs/Point forcings"), overwrite=TRUE)
file.copy(paste0(workingpath,"/extdata/Mussel_spatial_data//POM.csv"),paste0(userpath,"/Mussel_spatial/Inputs/Point forcings"), overwrite=TRUE)
file.copy(paste0(workingpath,"/extdata/Mussel_spatial_data//TSM.csv"),paste0(userpath,"/Mussel_spatial/Inputs/Point forcings"), overwrite=TRUE)
file.copy(paste0(workingpath,"/extdata/Mussel_spatial_data//sst.nc"),paste0(userpath,"/Mussel_spatial/Inputs/Spatial forcings"), overwrite=TRUE)
file.copy(paste0(workingpath,"/extdata/Mussel_spatial_data//Chl_a.nc"),paste0(userpath,"/Mussel_spatial/Inputs/Spatial forcings"), overwrite=TRUE)
file.copy(paste0(workingpath,"/extdata/Mussel_spatial_data//Spatial_dates.csv"),paste0(userpath,"/Mussel_spatial/Inputs/Spatial forcings"), overwrite=TRUE)
cat("Folder skeleton for Mussel spatialized model created at:\n")
cat(userpath)
cat("\n")
cat("ATTENTION: Executing again this function will overwrite the files\n")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.