gWidget：有沒有辦法在testthat中模擬用戶操作？

Question

在我的程序包中，我正在使用testthat和gWidgetRGtk2 ，我想知道是否存在一種可以從代碼行模擬用戶操作的方法，例如，在下面的示例中，我正在測試用戶按下按鈕的操作。 到目前為止，我無法測試部分代碼，因此我必須手動測試所有代碼。

require(gWidgets)
options("guiToolkit"="RGtk2")

win <- gwindow("Hello World", visible=TRUE)
obj <- gbutton("Hello world", container = gwindow(),
 handler = function(h,...) assign("test",1,.GlobalEnv))

require(testthat)
test_that("Test button click",{
     # Something here to emulate pushing button      
      expect_equivalent(test,1)
    })

如何模擬用戶的操作？

Answer 1

經過徹底搜索后，我認為答案是在測試中調用處理程序函數。 我沒有找到從源代碼訪問invoke_change_handler的任何方法。