Отключить кнопку, если адрес электронной почты не правильный R Shiny

Question

Я создал блестящее приложение и настроил отключение кнопки «Отправить» до завершения настроек.Я хотел бы установить то же самое, если адрес электронной почты не был подтвержден.Я не уверен насчет моего кода:

 #-------- DISABLED SEND BUTTON --------#
      observe({
        if(is.null(input$zip) || input$zip == ""){
          disable("send")
        } else if(is.null(input$indice) || input$indice == ""){
          disable("send")
        } else if(!grepl("\\<[A-Z0-9._%+-]+@[A-Z0-9.-]+\\.[A-Z]{2,}\\>", input$mail)){
          disable("send")
        }
        else{
          enable("send")
        }

  })

Answer 1

Простой пример для других:

library(shiny)
library(shinyjs)

ui <- fluidPage(
    useShinyjs(),
    textInput('mail', 'mail'),
    actionButton("send", "send")
)

server <- function(input, output) {
    observe({
        #if(is.null(input$zip) || input$zip == ""){
        #    disable("send")
        #} else if(is.null(input$indice) || input$indice == ""){
        #    disable("send")
        #} else 
        if(!grepl("\\<[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\\.[a-zA-Z]{2,}\\>", input$mail)){
            disable("send")
        }
        else{
            enable("send")
        }
    })
}

shinyApp(ui, server)