在 RStudio Shiny 应用程序中,让观察者在初始应用程序加载后开始观察的最佳方式是什么。例如,在下面的应用程序中,我希望选择输入以 a
和 1
的初始值开始,然后,一旦加载应用程序,当用户进行选择时从 input1 我希望 input2 更改为“3”。但只有在应用加载后——我希望用户首先看到“1”。
这显然只是更复杂应用程序的一个非常简单的示例。在我更复杂的应用程序中,我设置了一个条件,将值与全局值进行比较,但必须有更简单的方法。
server<-function(session, input, output) {
observeEvent(input$input1, {
updateSelectInput(session, "input2", selected="3")
})
}
ui<-fluidPage(
# Application title
titlePanel("Hello Shiny!"),
# Sidebar with a slider input for the number of bins
sidebarLayout(
sidebarPanel(
selectInput("input1", label="Input1", choices=c("a", "b", "c"), selected="a"),
selectInput("input2", label="Input2", choices=c("1", "2", "3"), selected="1")
),
mainPanel(
)
)
)
shinyApp(ui=ui, server=server)
最佳答案
可能有更优雅的方法来执行此操作,但您可以使用随 Input1 的每次更改而增加的 react 值添加一个计数器。在第一次更改为输入 1 时,该计数器增加到 2,并且输入 2 更改为“3”。当 rv$X == 2 时,我将 observeEvent 设置为仅在第一次单击时更改 Input2,因此在修改 Input1 时 Input2 并不总是更改为 3。请参阅下面的服务器 fxn:
server<-function(session, input, output) {
rv<-reactiveValues(X = 1)
observeEvent(input$input1,{
if(rv$X==2) updateSelectInput(session, "input2", selected="3")
rv$X<-rv$X+1
})
}
https://stackoverflow.com/questions/33398078/