R/form.R

In enricoschumann/Perl6.Form: Format Strings with Perl6::Form

form <- function(..., cat = TRUE, perl = "perl", form.options) {
    oo <- getOption("useFancyQuotes")
    options(useFancyQuotes = FALSE)
    on.exit(options(useFancyQuotes = oo))

    s <- list(...)
    vecs <- lengths(s) > 1L
    if (any(vecs)) {
        for (i in which(vecs)) {
            s[[i]] <- paste(as.character(s[[i]]), collapse = "\r")
        }
    }
    s <- unlist(s)
    cmd <- paste(dQuote(s), collapse = ",", sep = "")

    opts <- if (!missing(form.options)) {
                paste0("{",
                       paste(paste(names(form.options), "=>", dQuote(form.options)),
                             collapse = ", "),
                       "}, ")
            } else ""
                    
    cmd <- paste0("use Perl6::Form; print form ", opts, " ", cmd, ";")
    res <- system2(perl, args = paste("-e ", shQuote(cmd)), stdout = TRUE)
    if (cat) {
        cat(paste(res, collapse ="\n"), "\n")
        invisible(res)
    } else
        res
}