我正在研究 r 面板包。现在，如果我有一个使用 radiogroup 按钮的函数，并且如果我尝试从 rpanel 菜单中运行该函数，则会收到此错误：
Error in panel$intname : $ operator is invalid for atomic vectors
但是，如果我不是从 rpanel 菜单内部运行该函数，而是通过独立调用它，则不会出现上述错误。这是一个简单的例子。尝试 2 种方法（1）运行整个代码并单击 Addition，然后单击菜单中的 Add（2）单独运行 add 函数并使用 add() 调用。前者会导致上述错误，而后者不会。另外，我看到这个错误只有在我的面板中有一个 rp.radiogroup 时才会出现。
我在为什么 R 不允许原子向量上的 $ 运算符中看到帖子？但我该如何解决我的问题？我的示例代码如下：
install.packages(c("rpanel","tkrplot"))
my.menu <- function(panel) {
library(rpanel,tkrplot)
if (panel$menu=="Add"){
add()
}
else
panel
}
main.panel <- rp.control(title = "Main Menu",size=c(200,150))
rp.menu(panel = main.panel, var = menu,
labels = list(list("Addition", "Add")),action = my.menu)
# function to do adddition
add <- function(){
my.draw <- function(panel) {
if(panel$vals=="numbers"){
val<-as.numeric(panel$nmbr1)+as.numeric(panel$nmbr2)
}
else if(panel$vals=="strings"){
val <- paste(as.character(panel$nmbr1), "and" ,as.character(panel$nmbr2))
}
plot(1:10, 1:10, type="n", xlab="", ylab="",
axes=FALSE, frame = TRUE)
text(5, 5, paste("Result: ", val),cex=1.4)
panel
}
my.redraw <- function(panel) {
rp.tkrreplot(panel, my.tkrplot)
panel
}
my.panel <- rp.control(title = "Addition")
rp.textentry(panel = my.panel, var = nmbr1,
labels = "First: ", action = my.redraw, initval="100")
rp.textentry(panel = my.panel, var = nmbr2,
labels = "Second:", action = my.redraw, initval="200")
rp.radiogroup(panel = my.panel, var = vals,
values = c("numbers", "strings"),
action = my.redraw, title = "Type")
rp.tkrplot(panel = my.panel, name = my.tkrplot, plotfun = my.draw)
}