inst/shiny-squid/source/utilities/disable_action_button.R

disableActionButton <- function(id,session,disabled) {
  session$sendCustomMessage(type="jsCode",
                            list(code= paste("$('#",id,"').prop('disabled',",disabled,")"
                                             ,sep="")))
}

Try the squid package in your browser

Any scripts or data that you put into this service are public.

squid documentation built on Jan. 22, 2022, 1:06 a.m.