R/environment.R

In KVHEM/CatCa: The package serves as proxy for CZ waterbodies calibration with BILAN model

#' Načte globální cesty
#'
#' @description Načte proměnné \code{.datadir} (synchronizovaná owncloud složka "used_data" z BILAN_UPOV) a \code{.workdir} (zatím nevyužito) na základě jména počítače. Před použitím je nutné PC registrovat - buď úpravou kódu na githubu nebo emailem na \email{hanel@fzp.czu.cz} ve struktuře
#' \preformatted{
#' jmeno_PC = {
#'   .datadir = 'cesta do used_data'
#'   .workdir = 'pracovni cesta'
#' }
#' }
#'
#' @usage give_paths
#' @return Přiřadí do \code{.GlobalEnv} proměnné \code{.datadir}, \code{.workdir} a \code{.where}
#' @export give_paths
give_paths <- function(){
where <- if(.Platform[["OS.type"]] == 'unix') (Sys.info()['nodename']) else (Sys.getenv('COMPUTERNAME'))

switch(where,
        'match' = {
          .datadir = "/home/owc/BILAN_UPOV/used_data/"
          .workdir = ""
        },
        'adam' = {
          .datadir = "/media/adam/d5b1fc6d-c9a0-457e-bf41-4daaa142c3de/home/adam/Shared/BILAN_UPOV/used_data/"
          .workdir = ""
        },
        'desrt' = {
          .datadir <- "/home/owc/BILAN_UPOV/used_data/"
          .workdir <- ''
        },
        'DESKTOP-444RM63' = {
          .datadir <- "C://Users//PetrP//ownCloud//used_data//"
          .workdir <- "C://Users//PetrP//Documents//BILAN_OWNCL//"
        },
        'Ubu' = {
          .datadir <- "/media/ubu/ADATA SV620/ownCloud/Shared/BILAN_UPOV/used_data/"
          .workdir <- ""
        },
        "HANEL-SN-01" = {
          .datadir = "/home/owc/BILAN_UPOV/used_data/"
          .workdir = ""
        },
        "bastap-pc-01" = {
          .datadir = "D:\\ownCloud\\Shared\\BILAN_UPOV\\used_data"
          .workdir = ""
        },
        "HERMANOVSKY-01" = {
          .datadir = "C://mujcloud//Shared//BILAN_UPOV//used_data"
          .workdir = ""       
        },
        "LEST" = {
          .datadir = "C://testR//data//"
          .workdir = "C://testR//"
        },
        'rserver.science.fzp.czu.cz' = {
          .datadir = "/srv/shiny-server/KVHEM/HAMR/used_data"
          .workdir = ""
        },
        'IRINA' = {
          .datadir = "C:\\Users\\Irina\\ownCloud\\Shared\\BILAN_UPOV\\used_data"
          .workdir = ""
        },
        "VMORAVEC-NB-01" = {
          .datadir = "D:\\ownCloud\\Shared\\BILAN_UPOV\\used_data"
          .workdir = ""
        },
        'DESKTOP-IDM6O5J' = {
          .datadir = "C:\\Users\\Zenbook\\ownCloud\\Shared\\BILAN_UPOV\\used_data"
          .workdir = ""
        },
        "telly" = {
          .datadir = "/home/owc/BILAN_UPOV/used_data/"
        },
        "LAPTOP-HFSJ0HMO" = {
          .datadir = "D:/ownCloud/Shared/BILAN_UPOV/used_data/"
          .workdir = ""
        }
)

  if (is.null(.datadir)) {
    .datadir = NA
    warning('Pocitac ', where, 'nenalezen v environment.R - data nedostupna!\n Uprav environment.R a push na github.com/KVHEM/CatCa')
    }

  if (is.null(.workdir)) {
    .workdir = getwd()
    warning('Pocitac ', where, 'nenalezen v environment.R - pracovni adresar nastaven automaticky!')
  }

  assign('.datadir', .datadir, envir = .GlobalEnv)
  assign('.workdir', .workdir, envir = .GlobalEnv)
  assign('.where', where, envir = .GlobalEnv)
}



.onLoad <- function(libname, pkgname) {

  op <- options()
  op.catca <- list(
    'ind_scales' = c(1, 3, 6, 9, 12),
    'ref_period' = as.Date(c('1981-01-01', '2010-12-31')),
    cores_num = detectCores() - 1
  )
  toset <- !(names(op.catca) %in% names(op))
  if(any(toset)) options(op.catca[toset])

  give_paths()
  invisible()
}