如何解决测试模块化 R Shiny (golem) 仪表板
我一直在探索(**并且喜欢)使用 R Shiny 开发模块化仪表板的 golem 包。但我正在努力思考如何测试模块化仪表板。
例如在下面的 repex 中,如果导入模块中的 input$n_rows 设置为 15,我将如何测试显示模块中的输出包含 15 行?
如果您对此提供任何支持,我将不胜感激!
library(shiny)
library(reactable)
library(dplyr)
# Import module UI
mod_import_ui <- function(id){
ns <- NS(id)
fluidRow(
# Allow the user to select the number of rows to view
numericInput(ns("n_rows"),"Select number of observations",value = 10)
)
}
# Import module Server
mod_import_server <- function(id){
moduleServer(
id,function(input,output,session){
data <- reactive({
# Sample the requested number of rows from mtcars and return this to the application server
mtcars %>%
slice_sample(n = input$n_rows)
# [....] # Some complex formatting and transformations
})
return(data)
}
)}
# display module UI
mod_display_ui <- function(id){
ns <- NS(id)
fluidRow(
reactableOutput(ns("table"))
)
}
# display module Server
mod_display_server <- function(id,data_in){
moduleServer(
id,session){
# [....] # Some more transformations and merging with data from other modules
output$table <- renderReactable(reactable(data_in()))
}
)}
app_ui <- function(request) {
tagList(
mod_import_ui("import_1"),mod_display_ui("display_1")
)
}
app_server <- function(input,session) {
data_in <- mod_import_server("import_1")
mod_display_server("display_1",data_in)
}
shinyApp(ui = app_ui,server = app_server)
解决方法
我建议将应用的核心与用户界面分开。
{golem} 框架允许在 R 包中构建您的应用程序,这意味着您可以使用从包构建到文档和测试代码的所有工具。
如果您遵循我们在 engineering-shiny.org/ 中的指南,您将看到我们建议从您的“服务器”部分提取所有 R 代码以在小插图中对其进行测试,将其转换为常规函数,以便您可以照常进行测试带有 R 包。
因此,您 ShinyApp 只调用内部函数,已经记录和测试。使用这种方法,您可以测试应用程序中可能发生的不同场景的输出。在静态脚本中尝试不同的输入参数并验证输出,无论您在接下来的开发步骤中在应用中发生什么变化。
这本书给出了很多建议。如果我必须将它们总结为一个工作流程,这将是:
- 直接在 Rmd 中构建必要的代码。这使您无需进行所有必要的单击即可测试操作。我们称之为“Rmd 优先”方法:https://rtask.thinkr.fr/when-development-starts-with-documentation/
- 将此代码分解为 R 函数,以尽可能少地放入 Shiny 应用本身。
- 在没有服务器的情况下(或不要太多)创建您的 UI 部分,只是为了看看总体外观
- 在应用的适当位置包含您的函数。
- 加强代码。可重现的示例、单元测试、文档、代码版本控制等(与代码并行执行时,此步骤更好)
作为对 Sebastien 回答的补充,我想指出从 {shiny}
v 1.5.0 开始,您可以直接使用 testServer
函数测试服务器功能,这可能就是您正在寻找的
以下是您如何实现这一目标的代表:
library(shiny)
library(magrittr)
library(dplyr)
mod_import_server <- function(id){
moduleServer( id,function(input,output,session){
data <- reactive({
mtcars %>%
slice(n = 1:input$n_rows)
})
return(data)
})
}
shiny::testServer(mod_import_server,{
for (i in 1:10){
session$setInputs(n_rows = i)
testthat::expect_equal(
data(),slice(mtcars,n = 1:i)
)
}
})
在这里,您可以测试 reactive()
的行为是否符合您的预期。
这并不完美,但这是一个好的开始:)
但是,很难找到一种方法来测试第二个模块的行为,因为它取决于作为值传递的 react()。
科林
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。