验证在 RShiny 中的数字输入中输入的数据

Question

我正在开发 Shiny 应用程序，如果用户输入非数字字符，则该值应更改为 updateNumericInput() 中提到的值。

这是我的Rcode

library(shiny)
ui <- fluidPage (
  numericInput("current", "Current Week",value = 40, min = 40, max = 80)
)

server <- function(input, output, session) {
  observeEvent(input$current, { 
    updateNumericInput(session,"current", value = ({ if(!(is.numeric(input$current))){40}
                           if(!(is.null(input$current) || is.na(input$current))){
                           if(input$current < 40){
                             40 
                           }else if(input$current > 80){
                             80
                           } else{
                             return (isolate(input$current))
                           } 
                         } 
      })
    )
  })

  }

shinyApp(ui=ui, server = server)

谁能帮我处理这段代码？

Answer 1

这样的？

library(shiny)
ui <- fluidPage (
  numericInput("current", "Current Week",value = 40, min = 40, max = 80)
)

server <- function(input, output, session) {
  observeEvent(input$current, { 
    updateNumericInput(session,"current", value = ({ if(!(is.numeric(input$current))){40}
      else if(!(is.null(input$current) || is.na(input$current))){
        if(input$current < 40){
          40 
        }else if(input$current > 80){
          80
        } else{
          return (isolate(input$current))
        } 
      } 
      else{40}
    })
    )
  })

}

shinyApp(ui=ui, server = server)