stringhe di formato sprintf: riferimento per nome?

Question

In Python, è possibile specificare formati di stringa per nome (questo è naturalmente un esempio stupido):

parameters = {'label':'months', 'april':4,'may':5,'june':6} 
formatstring = '%(label)s: %(april)d %(may)d %(june)d' 
outputstring = formatstring % parameters 

(La notazione formatstring % parameters è il Python equivalente a do.call(sprintf,c(formatstring,as.list(parameters))) in R.)

La stringa di uscita sarebbe "months: 4, 5, 6". i parametri sono memorizzati come una coppia chiave-valore (che potrebbe essere chiamata un dizionario, una tabella hash o una lista con nome in varie lingue). Il formato stringa %(text)s consente di fare riferimento a quale elemento del dizionario (text) deve essere formattato in tale slot.

C'è qualcosa di equivalente in R, o hai trovato una buona soluzione?

Answer 1

1. Prova gsubfn nella gsubfn package:

library(gsubfn) 
parameters <- list(label = "months", april = 4, may = 5, june = 6) 

gsubfn("\\w+", parameters, "label: april, may, june") 

2. o prova fn$ dal medesimo pacchetto:

with(parameters, fn$identity("$label: $april, $may, $june")) 

3. Ecco una funzione infisso breve che trasforma una stringa di formato e un elenco di parametri in un sprintf e poi lo esegue:

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

usare in questo modo:

> '%(label)s: %(april)d %(may)d %(june)d' %format% parameters 
[1] "months: 4 5 6"