你如何关闭该程序的rpanel面板？

Question

我想通过面板上的按钮关闭一个rpanel面板（通过下面的rp.button语句触发的“action”功能）。我已经阅读了rpanel文档，但到目前为止，关闭面板的唯一方法是手动关闭窗口本身（这不允许我在窗口/面板关闭之前执行其他操作）。

library(rpanel)
panel <- rp.control(title = "Test")
rp.button(panel,"Close")

---

编辑于11/11/2010

我必须失明。在经历了许多其他路径，寻找某种类型的“破坏”，“关闭”或“杀死”功能之后，我碰到了rp.button（）函数的“quitbutton”部分。它位于帮助文件中，但是您必须向右滚动才能找到它。

无论如何，这意味着上面的内容可以写成：

library(rpanel)
do.before.close<-function(panel) {
   print("Do stuff here")
   panel
}

panel <- rp.control(title = "Test")
rp.button(panel,"Close", action=do.before.close, quitbutton = TRUE)

Answer 1

我在rpanel函数中没有看到这个功能，但你应该看看TeachingDemos包函数tkexamp。它创建了一个窗口，其中有一个“退出”按钮，可以调用tkdestroy函数。您应该能够取出无关的（用于您的目的）材料并放回您选择的材料。还有SIG for GUI developers：