R/create_folders.E3D.R

In jonaslenz/toolbox.e3d: Toolbox for the soil erosion modeling tool EROSION-3D

#' creates folder structure including a basic E3D model
#'
#' @param path folder path in which file will be written
#' @param overwrite boolean, TRUE allows overwriting of files
#' @return file path to created folder structure
#' @importFrom utils unzip
#' @export
#' @examples
#' create_folders.E3D(path = "C:/E3Dmodel/", overwrite = TRUE)

create_folders.E3D <- function(path = tempdir(), overwrite = FALSE)
{
  unzip(zipfile= system.file("model.zip", package = "toolbox.e3d"),exdir = file.path(path,"model"), overwrite = overwrite);
  change_settings.E3D(path,setpath = TRUE)
  return(normalizePath(file.path(path,"model")));
}