stringfunc.R

#!/usr/bin/env Rscript

requireNamespace("gsubfn")

# =============================================================================
# Top-level namespace: %format%
# =============================================================================

# https://stackoverflow.com/questions/17475803/sprintf-format-strings-reference-by-name

`%format%` <- function(fmt, list) {
    pat <- "%\\(([^)]*)\\)"
    fmt2 <- gsub(pat, "%", fmt)
    list2 <- list[strapplyc(fmt, pat)[[1]]]
    do.call("sprintf", c(fmt2, list2))
}


# =============================================================================
# Namespace-like method: http://stackoverflow.com/questions/1266279/#1319786
# =============================================================================

stringfunc = new.env()


stringfunc$formatString <- function(fmt, list) {
    return(with(list, gsubfn::fn$identity(fmt)))
}

stringfunc$TESTS <- '

stringfunc$formatString("some $text $to $replace", list(
    text="day",
    to="in",
    replace="June"
))

'