Вы можете использовать options
в произвольном фрагменте. Они будут действовать до тех пор, пока они не будут сброшены.
---
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r test}
a = 1/2^10
a
```
foo
```{r test2}
op <- options(digits=3) ## the <- assignment stores default values
a = 1/2^10
a
```
```{r test3}
options(op) ## re-assign
a = 1/2^10
a
```
Выходы
Примечание:
Я использую digits=3
здесь, чтобы продемонстрировать, что это работает. Обратите внимание, что опция digits=
учитывает макс. значащие цифры и отбрасывает конечные нули.
Учтите это:
formatC(1/2^10, digits=15, format="f")
# [1] "0.000976562500000"
Это показывает, что пять конечных нулей вашего вычисления будут отброшены. Возможно, это вызвало ваше замешательство.