Nothing
#' getModules
#'
#' Extract module information of a GAMS model.
#'
#'
#' @param modulepath The path where the modules are stored.
#' @return A matrix containing the different modules with name, corresponding
#' module number and corresponding realizations
#' @author Jan Philipp Dietrich
#' @export
#' @importFrom utils data
#' @seealso \code{\link{codeCheck}}
getModules <- function(modulepath) {
if(!dir.exists(modulepath)) stop("Module path ",modulepath," does not exist!")
folder <- base::list.dirs(path=modulepath,full.names = FALSE,recursive = FALSE)
name <- gsub("[0-9]+\\_","",folder)
number <- gsub("([0-9]+)\\_.*","\\1",folder)
out <- cbind(name,number,folder)
realizations <- folder
for(i in 1:dim(out)[1]) realizations[i] <- paste(setdiff(base::list.dirs(path=paste0(modulepath,"/",out[i,"folder"]),full.names = FALSE,recursive = FALSE),getOption("gms_reserved_types")),collapse=",")
out <- cbind(out,realizations)
rownames(out) <- out[,"name"]
return(out)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.