R/Set_wd.R

Defines functions Set.wd

Set.wd<-function(DB.name){
  wd<-paste0(.libPaths()[1],"/AEGIS/", DB.name)
  if(exists(wd)==FALSE) {
    dir.create(wd, showWarnings = FALSE)
    setwd(wd)
  } else
  {
    setwd(wd)
  }
}
OHDSI/Aegis documentation built on June 7, 2020, 5:09 a.m.