在 R 的全局环境中更改函数环境中的 options() 而不更改 options()?
Changing options() in a function environment without changing options() in global environment in R?
为了抑制数字的指数表示法,在我的全局环境中我有 options("scipen" = 100)
。为了做一些我需要指数表示法的事情,我想暂时更改函数内部的这个选项,比如
f <- function(x){
options("scipen" = -100)
...
}
但是,更改函数内的选项也会自动更改全局环境中的选项。有没有办法只在函数内部更改本地选项?
这是使用on.exit()
的好地方。它的优点是确保选项在退出函数调用的评估框架之前重置为它们的原始值(存储在oo
中)——即使退出是错误的结果。
f <- function(x) {
oo <- options(scipen = -100)
on.exit(options(oo))
print(x)
}
## Try it out
1111
## [1] 1111
f(1111)
## [1] 1.111e+03
1111
## [1] 1111
withr 包可以做到这一点:
library(withr)
f <- function(x) with_options(list(scipen = -100), {
print(x)
})
f(1.2)
## [1] 1.2e+00
getOption("scipen")
## [1] 0
为了抑制数字的指数表示法,在我的全局环境中我有 options("scipen" = 100)
。为了做一些我需要指数表示法的事情,我想暂时更改函数内部的这个选项,比如
f <- function(x){
options("scipen" = -100)
...
}
但是,更改函数内的选项也会自动更改全局环境中的选项。有没有办法只在函数内部更改本地选项?
这是使用on.exit()
的好地方。它的优点是确保选项在退出函数调用的评估框架之前重置为它们的原始值(存储在oo
中)——即使退出是错误的结果。
f <- function(x) {
oo <- options(scipen = -100)
on.exit(options(oo))
print(x)
}
## Try it out
1111
## [1] 1111
f(1111)
## [1] 1.111e+03
1111
## [1] 1111
withr 包可以做到这一点:
library(withr)
f <- function(x) with_options(list(scipen = -100), {
print(x)
})
f(1.2)
## [1] 1.2e+00
getOption("scipen")
## [1] 0