Como definir um padrão de exibição de casas decimais no R?

É possível realizar isto para o chunk e para inline.

Veja no exemplo abaixo: o valor real, valor com modificação para inline e a modificação para o chunk.

O code abaixo está em rmd, e consta de head, print valores originais (chunk 1), função para ajuste inline (chunk 2), ajuste para print de resultado (chunk 3) e print valores com padrão de casas decimais (chunk 4).

---
title: "Untitled"
output: html_document
---
## R Markdown
```{r }
mean(mtcars$mpg)
pi
```

Valor de pi é igual a `r pi`.


## MOD - INLINE
```{r  , include=FALSE}
library(knitr)
inline_hook <- function (x) {
  if (is.numeric(x)) {
    res <- ifelse(x == round(x),
      sprintf("%d", x),
      sprintf("%.3f", x) # numero de casas decimais
    )
    paste(res, collapse = ", ")
  }
}
knit_hooks$set(inline = inline_hook)
```

Valor de pi é igual a `r pi`.


## MOD - CHUNK
```{r  , include=FALSE}
options(digits = 4)
```

```{r }
mean(mtcars$mpg)
pi
```

Fonte: inline.