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

How to test modules within a golem framework shiny package?

我正在尝试为我的 shiny 应用程序开发单元测试,该应用程序是使用 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"

这基本上表示指定的方法在应用于函数 class 对象时不起作用。

我是不是漏掉了什么?

希望能讨论一下在开发一个闪亮的应用程序包时如何进行测试。

我也被这个困住了。我用这种方式解决了我的包裹(sistec)。

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)
    })
})