我从J. Cheng找到了这段代码,作为freezeReactiveValue的示例。但是,在显示图之前,有时会暂时显示错误以代替图。(我需要对输入进行一些更改。)据我所知,问题是在很短的时间内-X和Y(列)停留在先前的数据集中,并且不匹配新的数据集。例如,选择“压力”数据集后,我收到一秒钟的错误消息“ FUN中的错误:找不到对象'速度'”。(但前提是事先选择了x = Speed和y = pressure来选择“汽车”数据集。)显然,该图试图抓住x变量,然后才有机会对其进行更新,但是我不知道如何防止这种情况的发生。发生。将不胜感激您有任何提示!!!谢谢!
library(shiny)
library(ggplot2)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("dataset", "Dataset", c("cars", "pressure", "mtcars")),
selectInput("x", "x variable", character(0)),
selectInput("y", "y variable", character(0))
),
mainPanel(
plotOutput("plot")
)
)
)
server <- function(input, output, session) {
dataset <- reactive({
get(input$dataset, "package:datasets")
})
observe({
freezeReactiveValue(input, "x")
freezeReactiveValue(input, "y")
columns <- names(dataset())
updateSelectInput(session, "x", choices = columns, selected = columns[[1]])
updateSelectInput(session, "y", choices = columns, selected = columns[[2]])
})
output$plot <- renderPlot({
Sys.sleep(2)
req(input$dataset,input$x,input$y)
ggplot(dataset(), aes_string(input$x, input$y)) + geom_point()
})
}
shinyApp(ui, server)
这与反应优先级有关,与“选择无效”有关。我认为,确保原子更新(对数据和输入)的唯一方法是,您需要将数据更新和输入更改组合到同一个块中,或者将风险相关的块以不希望的顺序执行(即,在反应链中有多个路径)。
一种方法是对所有事物都使用副作用,而不仅仅是分配$x
和$y
。(我仍在这里寻找不需要这种副作用的解决方案...)(我借鉴了@rawr的评论。)
使用ui
,请尝试以下操作:
server <- function(input, output, session) {
dataset <- reactiveVal()
observeEvent(input$dataset, {
req(input$dataset)
x <- get(input$dataset, "package:datasets")
columns <- names(x)
updateSelectInput(session, "x", choices = columns, selected = columns[[1L]])
updateSelectInput(session, "y", choices = columns, selected = columns[[2L]])
dataset(x)
})
output$plot <- renderPlot({
req(dataset())
columns <- names(dataset())
req(all(c(input$x, input$y) %in% columns))
ggplot(dataset(), aes_string(input$x, input$y)) + geom_point()
})
}
我将“ x”和“ y”的赋值放入重新分配数据的同一观察块中。这样,可以相对保证selectInput
在input$dataset
更改后立即更新。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句