使用gWidgets加載數據

Question

我試圖用R設置一個非常簡單的GUI，其中包含一個按鈕，用於將RData加載到工作區中。

代碼看起來像這樣：

rm(list = ls()) # clean workspace
library(gWidgets)
library(gWidgetstcltk)
source("loadData.R")
options("guiToolkit"="tcltk")
win=gwindow("Analysis", visible = TRUE)
group = ggroup(horizontal = FALSE, container=win)
obj=gbutton("Load data", container = group,  handler = loadData   ("dataXML_saved.RData"))

當我進行采購時，最終將獲得所需的Window。 但是，當我再次按下“加載數據”按鈕時，出現以下錯誤消息：

FUN（X [[i]]，...）中的錯誤：嘗試應用非功能

加載數據數據的函數如下所示：

loadData = function(file){
load(file, .GlobalEnv)    
}

由於某些原因，gbutton的處理程序不接受load函數。 因此，這就是為什么我將其嵌入到loadData函數中的原因。

知道問題可能是什么嗎？

Answer 1

嘗試使用匿名函數。 您似乎正在傳遞一個表達式作為處理程序。

Answer 2

希望我能正確理解您提到的內容。 所以這是我最終嘗試實現的目標，但是沒有成功：

library(gWidgets)
library(gWidgetstcltk)

w <- gwindow("Button examples")
g <- ggroup(container = w)
addSpring(g) ## push to right of widget
gbutton("help", container = g)
addSpace(g, 20) ## some breathing room
gbutton("cancel", container = g)
gbutton("ok", container = g, handler = lapply("dataXML_saved.RData",     function(x) load(x)))

我收到與以前相同的錯誤消息。