有没有办法从操作包中的滑块控件中提取当前值?例如:
library(manipulate)
xx <- seq(-pi, pi, pi/20)
manipulate(
plot(xx, sin(par.a*xx)),
par.a = slider(-3, 3, step=0.01, initial = 1))
Run Code Online (Sandbox Code Playgroud)
在玩滑块之后,我希望获得par.a进一步计算的价值,而不必每次都看一下控件并手工编写.
我自己想出来了。
可以使用全局变量
manipulate(
{plot(xx, sin(par.a*xx))
a <<- par.a},
par.a = slider(-3, 3, step=0.01, initial = 1))
Run Code Online (Sandbox Code Playgroud)
也许这会对某人有所帮助。