¿Cómo evitar el uso de round() en cada \ Sexpr {}?

Question

¿Hay alguna manera de evitar la función round() al usar Sweave/knitr? Es realmente molesto escribir round(,2) en cada \Sexpr{}. Me gustaría tener dos decimales en todo el documento.

Gracias por su ayuda
Macs

Answer 1

Si ha leído the motivation del knitr package, usted probablemente sabe que soy la persona que odia round() dentro \Sexpr{} más. Sugerí esto al núcleo R hace mucho tiempo para Sweave pero fue ignorado, así que comencé mi propio paquete.

Aunque la respuesta de Josh O'Brien es absolutamente correcta, debo decir que realmente solo necesita options(digits = 2) con knitr, y no hay necesidad de restablecer el enganche en línea predeterminado porque el gancho predeterminado respeta esta opción.

Answer 2

En knitr, el gancho línea se pueden utilizar para procesar la salida de \Sexpr{} declaraciones. Por lo tanto, si desea imprimir sólo 2 dígitos después del punto decimal para el código en línea (dejando la opción general digits solo), puede hacerlo de esta manera:

## 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

En primer lugar, tal vez desee utilizar formatC en lugar de round para obtener dos dígitos, incluso cuando son cero. No hay una gran manera de hacer esto en Sweave; la mejor opción es, probablemente, simplemente crear una nueva función con un nombre corto que tenga el formato que desee; algo así como

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

Eso, al menos, ahorra un poco de escribir:

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

Por desgracia, sin curioseaba con un nuevo controlador Sweave, no creo que haya nada más que hacer (tal vez esto es otra razón para probar knitr, que parece estar ganando terreno rápidamente). Sweave está haciendo esto en lo que está dentro de su declaración Sexpr, y luego reemplazando la llamada Sexpr con el resultado.

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

Sin embargo, no se puede simplemente escribir una nueva versión de as.character; aparte del problema de que podría cambiar el comportamiento de otras formas inesperadas, debido al espacio de nombres, siempre llama a la versión en base, incluso si hay otra versión en el entorno global.