排列输入框(selectInput / numericInput等)R中的动态列闪闪发光

library(shiny)

ui <- fluidPage(
  selectInput("input1", "选择列1", choices = c("选项1", "选项2", "选项3")),
  selectInput("input2", "选择列2", choices = c("选项A", "选项B", "选项C")),
  selectInput("input3", "选择列3", choices = c("选项X", "选项Y", "选项Z")),
  verbatimTextOutput("output")
)

server <- function(input, output) {
  observe({
    # 获取用户选择的输入
    input1 <- input$input1
    input2 <- input$input2
    input3 <- input$input3
    
    # 判断输入是否为空
    if (!is.null(input1) && !is.null(input2) && !is.null(input3)) {
      # 如果输入不为空，则将选择的输入列闪闪发光
      output$output <- renderPrint({
        paste("您选择的输入为：", input1, input2, input3)
      })
    } else {
      # 如果输入为空，则不进行闪光效果
      output$output <- renderPrint({
        "请选择输入"
      })
    }
  })
}

shinyApp(ui, server)