Я хотел бы закрыть панель rpanel с помощью кнопки на панели (через функцию «action», которая будет вызываться оператором rp.button ниже).Я прочитал документацию по rpanel, но до сих пор единственный способ закрыть панель - это вручную закрыть само окно (что не позволяет мне выполнять другие действия до закрытия окна / панели).
library(rpanel)
panel <- rp.control(title = "Test")
rp.button(panel,"Close")
Редактировать 11/11/2010
Я должен быть слепым.Пройдя по многим другим путям, ища какой-то тип функций «уничтожить», «закрыть» или «убить», я наткнулся на часть «quitbutton» функции rp.button ().Он находится в файле справки, однако вам нужно прокрутить его далеко вправо, чтобы найти его.
В любом случае, это означает, что вышеприведенное можно записать как:
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)