R/evalCommas.R

In ssaxe-usgs/METsteps: Aggregate Data to the HUC 2-10 Levels (one line, title case)

#' Evaluate Comma Arguments
#'
#' Evaluates a series of arguments separated by commas, supplied wrapped in double quotes ("").
#' @param x Character; string.
#' @export
#' @return NULL
#' @examples
#' evalCommas()

evalCommas <- function(x){
  x2 <- strsplit(x     = x,
                 split = ',\n',
                 fixed = T)[[1]]
  x2 <- gsub(pattern     = ',',
             replacement = '',
             x           = x2,
             fixed       = T)
  eval(expr  = parse(text = x2),
       envir = globalenv())
}