测试中的闪亮反应上下文

问题描述

我正在尝试执行需要反应性上下文（而不是整个服务器）的代码

Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)
Backtrace:
 1. shiny::withReactiveDomain(...) test_integration.R:45:2
 5. shiny:::v() test_integration.R:48:4
 6. rv$get()
 7. private$dependents$register()
 8. shiny:::getCurrentContext()
 9. .getReactiveEnvironment()$currentContext()

然后我得到以下错误：

Csv

我想念什么？如果我在R会话中执行内部块，则会遇到相同的错误。

解决方法

具有未导出函数flushReact的解决方案：

library(shiny)

x <- reactiveVal()
observe({
  message(x())
})
x("abc")

capture.output(shiny:::flushReact(),type = "message")
# [1] "abc"

,

@anddt解决方案

library(shiny)
library(testthat)

test_that("test ",{
  withReactiveDomain(MockShinySession$new(),{
    v <- reactiveVal()
    v("abc")
    val <- isolate(v())
    expect_equal("abc",val)
  })
})