Come evitare di usare round() in ogni \ Sexpr {}?

Question

C'è un modo per evitare la funzione round() quando si usa Sweave/knitr? È davvero fastidioso scrivere round(,2) in ogni \Sexpr{}. Mi piacerebbe avere due cifre decimali attraverso l'intero documento.

Grazie per il vostro aiuto
Mac

Answer 1

Se avete letto the motivation del knitr package, probabilmente sapete io sono la persona che odia round() all'interno \Sexpr{} più. L'ho suggerito a R core molto tempo fa per Sweave ma è stato ignorato, così ho iniziato il mio pacchetto.

Anche se la risposta di Josh O'Brien è assolutamente corretto, devo dire è davvero solo bisogno options(digits = 2) con knitr, e non v'è alcuna necessità di ripristinare il gancio di default in linea perché i punti di gancio di default questa opzione.

Answer 2

Nel knitr, il gancio linea possono essere utilizzati per elaborare l'output di \Sexpr{} dichiarazioni. Quindi, se si desidera stampare solo 2 cifre dopo il decimale per codice inline (lasciando solo l'opzione complessiva digits) è possibile farlo in questo modo:

## First have a look at the default inline hook function 
knit_hooks$get("inline") 

## Then customize it to your own liking 
inline_hook <- function(x) { 
    if(is.numeric(x)) x <- round(x, 2) 
    paste(as.character(x), collapse=", ") 
} 
knit_hooks$set(inline = inline_hook) 

Answer 3

In primo luogo, è forse desidera utilizzare formatC invece di round per ottenere due cifre anche quando sono zero. Non c'è un ottimo modo per farlo in Sweave; l'opzione migliore è probabilmente semplicemente creare una nuova funzione con un nome breve che faccia la formattazione desiderata; qualcosa come

p <- function(x) {formatC(x, format="f", digits=2)} 

Questo almeno risparmiare un po 'di battitura:

The answer is $\Sexpr{p(x)}$. 

Purtroppo, senza pasticciare in giro con un nuovo driver Sweave, non credo che ci sia niente altro da fare (forse questo è un altro motivo per provare knitr, che sembra guadagnare terreno velocemente). Sweave sta facendo questo su cosa c'è dentro la tua istruzione Sexpr e poi sostituendo la chiamata Sexpr con il risultato.

as.character(eval(parse(text = cmd), envir = .GlobalEnv)) 

Tuttavia, non è possibile scrivere una nuova versione di as.character; a parte il problema che potrebbe modificare il comportamento in altri modi imprevisti, a causa del namespace, chiama sempre la versione in base anche se esiste un'altra versione nell'ambiente globale.