对于任何不必要的更改,避免更改R Shiny的selectInput值,因为这可能会导致性能问题和不必要的重新渲染。如果必须更改,可以使用updateSelectInput函数进行更新。
示例代码:
library(shiny)
ui <- fluidPage(
selectInput("num", "Numbers:", choices = c(1, 2, 3))
)
server <- function(input, output, session) {
observeEvent(input$num, {
# do something with input$num
})
# change selectInput value
observeEvent(input$changebtn, {
updateSelectInput(session, "num", selected = 2) # only change value to 2 if necessary
})
}
shinyApp(ui, server)
上一篇:不要连续接收长篇的短信。