R/readSetglobals.R

In pik-piam/gms: 'GAMS' Modularization Support Package

#' readSetglobals
#'
#' Reads all setglobals given in a GAMS code and returns them.
#'
#'
#' @param file A gams file or a vector containing GAMS code.
#' @return A vector of values the setglobal variables are set to with setglobal
#' variables as names.
#' @author Jan Philipp Dietrich
#' @seealso \code{\link{readDeclarations}}
readSetglobals <- function(file) {
  f <- readFileOrVector(file)
  f <- suppressWarnings(grep("^\\$[sS][eE][tT][gG][lL][oO][bB][aA][lL]", f, value = TRUE))
  pattern <- "^\\$[sS][eE][tT][gG][lL][oO][bB][aA][lL]\\s*([^\\s]*)\\s*(.*?)\\s*(!!.*)?$"
  out <- gsub(pattern, "\\2", f, perl = TRUE)
  names(out) <- gsub(pattern, "\\1", f, perl = TRUE)
  return(out)
}