Блог

Я не хочу использовать numericInput() , так есть ли другой способ обойти это? Кроме того, я попытался ограничить количество символов, сообщение об ошибке работает, но updateTextInput() не работает (предполагалось сократить исходный ввод всего до 5 символов). Буду признателен за любую помощь!

 app <- shinyApp(
  ui <- fluidPage(
    
  textInput("zipcode", label="Please enter your zipcode.", value = 66101)
                  ),
  
  server <- function(input, output, session) {
    
    observeEvent(input$zipcode,{ #limits zipcode input to 5 numbers only
      if(nchar(input$zipcode)>5 )
      {
        updateTextInput(session,'zipcode',value=substr(input$mytext,1,5))
        showModal(modalDialog(
          title = "Error!",
          "Character limit exceeded!",
          easyClose = TRUE
        ))
      }
    }
    )
  }
)
  

Вы ошибочно использовали input$mytext
Попробуйте:

 app <- shinyApp(
  ui <- fluidPage(
    
    textInput("zipcode", label="Please enter your zipcode.", value = 66101)
  ),
  
  server <- function(input, output, session) {
    
    observeEvent(input$zipcode,{ #limits zipcode input to 5 numbers only
      cat(suppressWarnings(is.na(as.numeric(input$zipcode))),'n')
      if(nchar(input$zipcode)>5)
      {
        updateTextInput(session,'zipcode',value=substr(input$zipcode,1,5))
        showModal(modalDialog(
          title = "Error!",
          "Character limit exceeded!",
          easyClose = TRUE
        ))
      }
      if(is.na(as.numeric(input$zipcode)))
      {
          showModal(modalDialog(
          title = "Error!",
          "Shoud be a digit",
          easyClose = TRUE
        ))
      }
    }
    )
  }
)

shinyApp(ui=ui,server)
  

Регулярное выражение должно сделать свое дело. Это просто проверяет, не является ли что-либо числом:

 grepl('[^0-9]', input$zipcode)
  

например,

 > grepl('[^0-9]', '12345')
# [1] FALSE
> grepl('[^0-9]', 'words')
# [1] TRUE
> grepl('[^0-9]', 'wordsandnumber123')
# [1] TRUE