#' Create the needed directories
#'
#' @param lastFullWeek ISO Week of the last full week
#' @param wd if "none", do not change the working directory, if "lower", change directory to weekly outputs directory, if "upper" change directory aboe that
#' @param debugmode if TRUE use for debugging
#' @return name of the working subdirectory
#' @export
directories<-function(lastFullWeek,wd=c("none","upper","lower"),debugmode=FALSE) {
opts<-getOption("euromomo")
if(debugmode)
root<-tempdir()
else
root<-opts$WorkDirectory
if(!file.exists(root)) stop("Working directory does not exist")
fi<-try(file.info(root))
if(inherits(fi,"try-error"))
stop("Failed to get information for the working directory")
if(!fi[1,"isdir"]) stop("Working directory is not a directory")
# Name of the last full week
week.name<-paste("EUROMOMO",opts$Country,ISOweek(as.Date(lastFullWeek)),sep="-")
week.dir<-file.path(root,week.name)
if(!file.exists(week.dir)) {
ok<-dir.create(week.dir)
if(inherits(ok,"try-error"))
stop("Could not create working subdirectory")
}
if(match.arg(wd)=="upper")
setwd(week.dir)
if(match.arg(wd)=="lower")
setwd(root)
for(i in c("diagnostics","data", "output")) {
tmp<-file.path(week.dir,i)
if(!file.exists(tmp))
dir.create(tmp)
}
return(week.dir)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.