我正在尝试为我的闪亮应用程序开发单元测试,该应用程序是使用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"
它基本上说指定的方法在应用于函数类对象时不起作用。
我是不是遗漏了什么?
如果能讨论一下在开发一个闪亮的应用程序包时如何进行测试,我将不胜感激。
我也陷入了困境。我用这种方式解决了我的包裹(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)
})
})