R/site_data_path_functions.R

In emf-creaf/medfatereports: Medfate Evaluation Reports

pkg.globals <- new.env()

pkg.globals$site_data_path <- "/home/miquel/OneDrive/mcaceres_work/model_development/medfate_development/StandLevelEvaluation/"

#' Site data path
#'
#' Functions to get/set path to site data
#'
#' @name data_path
#'
#' @param path
#'
#' @export
set_data_path<-function(path) {
  pkg.globals$site_data_path <- path
}

#' @rdname data_path
#' @export
get_data_path<-function(){
  return(pkg.globals$site_data_path)
}