我试图获得一个依赖于反应式的反应式值。在实际代码中(这是一个非常简化的版本),我以交互方式加载数据集。按下按钮时会更改(prevBtn / nextBtn)。我需要知道数据集中的行数,使用它来绘制具有不同颜色的数据点。
问题:为什么我不能在reactValues函数中使用反应式ro()?
为便于理解:尽管在反应性上下文中使用了ro(),但错误为什么显示为“ You tried to do something that can only be done from inside a reactive expression or observer.
”。
错误肯定是由于vals()造成的,我已经检查了其余部分。
代码:
library(shiny)
datasets <- list(mtcars, iris, PlantGrowth)
ui <- fluidPage(
mainPanel(
titlePanel("Simplified example"),
tableOutput("cars"),
actionButton("prevBtn", icon = icon("arrow-left"), ""),
actionButton("nextBtn", icon = icon("arrow-right"), ""),
verbatimTextOutput("rows")
)
)
server <- function(input, output) {
output$cars <- renderTable({
head(dat())
})
dat <- reactive({
if (is.null(rv$nr)) {
d <- mtcars
}
else{
d <- datasets[[rv$nr]]
}
})
rv <- reactiveValues(nr = 1)
set_nr <- function(direction) {
rv$nr <- rv$nr + direction
}
observeEvent(input$nextBtn, {
set_nr(1)
})
observeEvent(input$prevBtn, {
set_nr(-1)
})
ro <- reactive({
nrow(dat())
})
output$rows <- renderPrint({
print(paste(as.character(ro()), "rows"))
})
vals <- reactiveValues(needThisForLater = 30 * ro())
}
shinyApp(ui = ui, server = server)
.getReactiveEnvironment()$currentContext()
中的错误:
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.)
答案 0 :(得分:0)
我想你想要
vals <- reactiveValues(needThisForLater = reactive(30 * ro()))
并非reactiveValues
列表中的所有内容都被假定为反应性的。这也是存储常量值的好地方。因此,由于它试图评估您在运行时传递的参数,并且没有在反应性环境中调用该行,因此会出现该错误。因此,只需将其包装在对reactive()
的调用中,就可以为要调用的ro()
提供一个响应式环境。