R/utils.R

In highlight: Syntax Highlighter

# because utils:::SweaveParseOptions is now forbidden on CRAN
SweaveParseOptions <- function(text, defaults = list(), check = NULL) {
  x <- sub("^[[:space:]]*(.*)", "\\1", text)
  x <- sub("(.*[^[:space:]])[[:space:]]*$", "\\1", x)
  x <- unlist(strsplit(x, "[[:space:]]*,[[:space:]]*"))
  x <- strsplit(x, "[[:space:]]*=[[:space:]]*")
  if (length(x)) {
    if (length(x[[1L]]) == 1L) {
      x[[1L]] <- c("label", x[[1L]])
    }
  } else {
    return(defaults)
  }
  if (any(sapply(x, length) != 2L)) {
    stop(gettextf("parse error or empty option in\n%s", text), domain = NA)
  }
  options <- defaults
  for (k in seq_along(x)) {
    options[[x[[k]][1L]]] <- x[[k]][2L]
  }
  if (!is.null(options[["label"]]) && !is.null(options[["engine"]])) {
    options[["label"]] <- sub(
      paste0("\\.", options[["engine"]], "$"),
      "",
      options[["label"]]
    )
  }
  if (!is.null(check)) {
    check(options)
  } else {
    options
  }
}