How to disable a button based on input condition?

Question

Im trying to create a condition on a push button so it only works when my input is not empty AND is numeric . My code partially works as the button starts in a disabled gets enables when an input is typed but even if the input is not numeric (ie. typing letters will enable the button)

UI SIDE

library(shinyjs)

    ui <-    tabItem(tabName = "principal1",
                        br(),
                        
                        fluidRow( 
                          column(2,
                                 textInput(inputId = "documento1", "Ingrese el numero de documento", "")
                                 ),
                          
                          column(2,
                                 br(),
                                 fluidRow(
                                   actionButton("consulta_gobutton1", 
                                                label =  "Procesar",
                                                icon = icon("clipboard-check") ) )))

SERVER SIDE

 observeEvent(input$consulta_gobutton1, {
    documento1 <- input$documento1

    ###HERE IS MY CODE###

    })

 observe({
        toggleState("consulta_gobutton1", input$documento1 != ""  & is.numeric(as.numeric(input$documento1)) )
        
       })

YBS · Accepted Answer · 2021-11-08 23:56:06Z

1

You can use numericInput and do this

library(shinyjs)

ui <-    fluidPage(tabItem(tabName = "principal1",
                 br(),
                 useShinyjs(),
                 fluidRow( 
                   column(2,
                          numericInput(inputId="doc1",label="Ingrese el numero de documento ",value="",min=0,max=15,step=0.1, width = "80px"),
                          #textInput(inputId = "documento1", "Ingrese el numero de documento", "")
                   ),
                   
                   column(2,
                          br(),
                          fluidRow(
                            actionButton("consulta_gobutton1", 
                                         label =  "Procesar",
                                         icon = icon("clipboard-check") ) ))
                   )
))

server <- function(input, output,session) {
  observeEvent(input$consulta_gobutton1, {
    documento1 <- input$documento1
    
    ###HERE IS MY CODE###
    
  })
  
  observe({
    
    if (is.numeric(input$doc1)) shinyjs::enable("consulta_gobutton1")
    else shinyjs::disable("consulta_gobutton1")
    
    #toggleState("consulta_gobutton1", input$documento1 != ""  & is.numeric(as.numeric(input$documento1)) )
    
  })
}

shinyApp(ui = ui, server = server)

edited Nov 8, 2021 at 23:56

answered Nov 8, 2021 at 21:54

YBS

21.5k2 gold badges15 silver badges33 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Andres Mora Over a year ago

i cant get it to work this way. button will remain disabled even with numeric input

YBS Over a year ago

It works fine for me. I will put image. Also, you can change the max to above 15, to whatever valid range you require. Perhaps you need to reboot your laptop or restart RStudio.

Andres Mora Over a year ago

thanks. i didnt have a numeric input field so that was affecting the button state

Andres Mora · Accepted Answer · 2021-11-08 22:13:56Z

0

since the input is a string, it first needs dealt with in a different way

  observe({
    toggleState("consulta_gobutton1", input$documento1 != ""  & !is.na(as.numeric(input$documento1)) )

    #if(is.numeric(as.numeric(nn)) & !is.na(as.numeric(nn))

  })

answered Nov 8, 2021 at 22:13

Andres Mora

1,11811 silver badges22 bronze badges

Collectives™ on Stack Overflow

How to disable a button based on input condition?

2 Answers 2

3 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

3 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related