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

disableActionButton <- function(id,session,disabled) {
  session$sendCustomMessage(type="jsCode",
                            list(code= paste("$('#",id,"').prop('disabled',",disabled,")"
                                             ,sep="")))
}
Haycen/SQUID documentation built on May 8, 2017, 2:54 p.m.