使用R引用類在GUI中將值從一個窗口傳遞到另一個窗口

Question

我使用gWidgets在R中製作GUI。直到現在，我一直通過全球環境將價值從一個窗口傳遞到另一個窗口。使用全球環境很容易實現，但並不理想。一個問題是R CMD check抱怨缺少全局變量的可見綁定。

作爲這個問題的解決方案，參考類已被幾個R程序員提到。但要理解參考類在這種情況下如何工作，這將有一個簡單的例子。

讓我給一個愚蠢的圖形用戶界面工作。當用戶點擊第一個窗口的按鈕時，它將模型m置於全局環境中。第二個按鈕從全球環境獲得m並提供輸出。當您再次點擊第一個按鈕時，它將創建一個新模型m並更改第二個按鈕的輸出。如果關閉第一個窗口，則第二個窗口中的按鈕仍然有效，因爲m位於全局環境中。

library(gWidgets) 
options(guiToolkit = "tcltk") 

h1 <- function(h, ...){ 
    d1 <- data.frame(x=runif(10), y=runif(10)) 
    .GlobalEnv$m <- lm(x ~ y, data=d1) 
} 

g1 <- gbutton("1. Make model", 
    container=gwindow(), handler=h1) 

h2 <- function(h, ...){ 
    d2 <- data.frame(y=(1:10)/10) 
    p <- predict(.GlobalEnv$m, newdata=d2) 
    print(p) 
} 

g2 <- gbutton("2. Make prediction", 
    container=gwindow(), handler=h2) 

如何在本例中使用引用類？

Answer 1

調用setRefClass，並將每個小部件和數據值包含爲一個字段。小工具應該有ANY。在initialize方法中初始化這些小部件，並將功能外包給其他方法。創建一個函數來包裝類的創建。

silly_gui_generator <- setRefClass(
    "SillyGui", 
    fields = list(
    #widgets 
    win1   = "ANY", 
    win2   = "ANY", 
    button1  = "ANY", 
    button2  = "ANY", 
    #data 
    modelData  = "data.frame", 
    predictionData = "data.frame", 
    model   = "lm" 
), 
    methods = list(
    initialize = function(modelData = NULL) 
    { 
     if(is.null(modelData)) 
     { 
     modelData <<- data.frame(x = runif(10), y = runif(10)) 
     } 

     win1 <<- gwindow(visible = FALSE) 
     win2 <<- gwindow(visible = FALSE) 
     button1 <<- gbutton(
     "1. Make model", 
     container = win1, 
     handler = function(h, ...) 
     {   
      makeModel() 
     } 
    ) 
     button2 <<- gbutton(
     "2. Make prediction", 
     container = win2, 
     handler = function(h, ...) 
     {   
      print(predictModel()) 
     } 
    ) 
     visible(win1) <- TRUE 
     visible(win2) <- TRUE 
    }, 
    makeModel = function() 
    { 
     model <<- lm(x ~ y, data = modelData) 
    }, 
    predictModel = function() 
    { 
     predictionData <<- data.frame(y = (1:10)/10) 
     predict(model, newdata = predictionData) 
    } 
) 
) 

generate_silly_gui <- function(modelData = NULL) 
{ 
    invisible(silly_gui_generator$new(modelData = modelData)) 
} 

Answer 2

裏奇的回答是一個辦法。它給了你一個單一的對象（generate_silly_gui返回的實例，你可以使用它來操縱模型和用於GUI的窗口小部件，這是一個很好的方法，下面更簡單一些，它僅僅是模型，只是一個小小的偏差，從問題的代碼中使用的引用類下面是使用環境的更加結構化的方式：

OurModel <- setRefClass("OurModel", 
         fields="m") 

## a global 
model_instance = OurModel$new(m=NULL) 

然後，只需在你的代碼並運行model_instance$m更換.GlobalEnv$m

使用參考類允許你做的事情就像添加吸氣劑和吸氣劑一樣，也可以做其他事情，並推動你走向模式l視圖控制器風格。 objectSignals包朝着這個方向發展。

如果您的GUI變得更加複雜，您可能需要將這兩種方法分開。