问题描述
我正在尝试为我的闪亮应用程序开发单元测试,该测试是使用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)
})
})