如何在golem框架闪亮包中测试模块？

如何解决如何在golem框架闪亮包中测试模块？

我正在尝试为我的闪亮应用程序开发单元测试，该测试是使用golem框架和shiny v1.5.0进行的。

Golem附带了一个推荐的测试文件，该文件涵盖了非常基本的UI测试。但是，我更关心测试所有模块的服务器端。因此，就像您要对常规R包中的每个功能进行测试一样，我想在我闪亮的应用程序中测试每个模块。

我知道开发中有一个testModule函数，但是最新的闪亮CRAN版本（恰好是我正在使用的版本）不包含该函数。只有一个testServer函数，但是我发现的所有示例似乎都定义了测试文件中的模块服务器端。当模块是软件包的一部分时，我找不到模块测试的示例。

所以我基本上想做的是一个tests/testthat/test-my_module.R内部的测试，看起来像这样：

test_that("The module receives its input",{
    shiny::testServer(
        app = mypackage::my_module_server,args = list(),session = MockShinySession$new(),{
        session$setInputs(some_input = 100)
        expect_equal(output$some_output,50)
    })
})

但是，这会引发错误：

Error in UseMethod("as.shiny.appobj",x) : 
  método não aplicável para 'as.shiny.appobj' aplicado a um objeto de classe "function"

基本上说指定的方法在应用于函数类对象时不起作用。

我在这里想念东西吗？

将感谢您讨论将闪亮的应用程序打包开发时如何进行测试的讨论。

解决方法

我也一直坚持下去。我为包裹（top-level .Files object）解决了这种问题。

aria_server <- sistec::aria_server() 
server <- function(id) {
  shiny::moduleServer(id,aria_server)
}

testServer(server,{
  # comparison$x is FALSE
  testthat::expect_false(comparison$x)
})

您可以在您的计算机中尝试此操作：

mypackage_server <- mypackage::my_module_server
server <- function(id) {
  moduleServer(id,mypackage)
}

test_that("The module receives its input",{
    shiny::testServer(server,{
      session$setInputs(some_input = 100)
      expect_equal(output$some_output,50)
    })
})