gWidget : test에서 사용자 작업을 에뮬레이션하는 방법이 있습니까?

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에 액세스 할 수있는 방법을 찾지 못했습니다.