如何在testServer中测试Shiny应用observe内的输出元素？

我有一个Shiny应用，使用testthat和testServer测试其服务器组件。服务器部分包含若干reactive值，同时为了提升性能，将多个渲染操作整合在observe()元素中。

给出的服务器+testServer示例代码如下：

library(shiny)
library(dplyr)
library(testthat)

server <- function(input, output, session) {
  data <- reactive(mtcars)
  
  observe({
    print("Observe is active")
    
    # do some further analysis on the data here
    data2 <- data() |> filter(mpg > 20)
    
    
    output$nrows <- renderUI(nrow(data2)) # 14
    output$unique_mpgs <- renderUI(length(unique(data2$mpg))) # 10
  })
}

testServer(server, {
  expect_equal(data(), mtcars) # works because data() is a reactive() not observe()...
  
  # how can I test here that nrows == 14 and unique_mpgs == 10
})

我希望尽可能避免新增多个reactive值（如分别为nrows、unique_mpgs创建reactive），请问是否有办法在testServer中检查observe元素内的输出值？

解决方案 #

完全可以直接在testServer中检查这些output值，不需要新增reactive。核心步骤是确保observe已执行，然后直接访问output对象对应的渲染结果：

1. 调用session$flushReact()：强制Shiny处理所有待处理的反应式更新，确保observe块执行完毕并更新了output。
2. 访问output$<id>()获取渲染后的UI元素，提取其中的数值内容进行断言。

修改后的testServer代码如下：

testServer(server, {
  expect_equal(data(), mtcars)
  
  # 强制处理反应式更新，确保observe执行
  session$flushReact()
  
  # 提取renderUI输出的数值并验证
  expect_equal(output$nrows()$children[[1]], 14)
  expect_equal(output$unique_mpgs()$children[[1]], 10)
})

补充说明 #

因为renderUI会把数值包装成Shiny UI元素（比如文本节点），所以需要通过$children[[1]]取出原始数值。如果觉得这种写法不够直观，也可以把UI元素转成字符再转成数值：

expect_equal(as.integer(as.character(output$nrows())), 14)
expect_equal(as.integer(as.character(output$unique_mpgs())), 10)

两种方式都能达到测试目的，且不需要修改原服务器代码中的observe结构，符合你避免新增reactive的要求。

内容的提问来源于stack exchange，提问作者David