gWidget：テストでユーザーアクションをエミュレートする方法はありますか？

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にアクセスする方法が見つかりませんでした。