R/actionBusyButton.R

In datasketch/dsmodules: Shiny Modules for Datasketch Apps

#' @export
actionBusyButtonUI <- function(id, text = "Go", icon = NULL, class = NULL) {

  # indicators taken from https://github.com/daattali/advanced-shiny/tree/master/busy-indicator
  ns <- shiny::NS(id)
  loadingGif <- "data:image/gif;base64,R0lGODlhEAALAPQAAP///wAAANra2tDQ0Orq6gYGBgAAAC4uLoKCgmBgYLq6uiIiIkpKSoqKimRkZL6+viYmJgQEBE5OTubm5tjY2PT09Dg4ONzc3PLy8ra2tqCgoMrKyu7u7gAAAAAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh/hpDcmVhdGVkIHdpdGggYWpheGxvYWQuaW5mbwAh+QQJCwAAACwAAAAAEAALAAAFLSAgjmRpnqSgCuLKAq5AEIM4zDVw03ve27ifDgfkEYe04kDIDC5zrtYKRa2WQgAh+QQJCwAAACwAAAAAEAALAAAFJGBhGAVgnqhpHIeRvsDawqns0qeN5+y967tYLyicBYE7EYkYAgAh+QQJCwAAACwAAAAAEAALAAAFNiAgjothLOOIJAkiGgxjpGKiKMkbz7SN6zIawJcDwIK9W/HISxGBzdHTuBNOmcJVCyoUlk7CEAAh+QQJCwAAACwAAAAAEAALAAAFNSAgjqQIRRFUAo3jNGIkSdHqPI8Tz3V55zuaDacDyIQ+YrBH+hWPzJFzOQQaeavWi7oqnVIhACH5BAkLAAAALAAAAAAQAAsAAAUyICCOZGme1rJY5kRRk7hI0mJSVUXJtF3iOl7tltsBZsNfUegjAY3I5sgFY55KqdX1GgIAIfkECQsAAAAsAAAAABAACwAABTcgII5kaZ4kcV2EqLJipmnZhWGXaOOitm2aXQ4g7P2Ct2ER4AMul00kj5g0Al8tADY2y6C+4FIIACH5BAkLAAAALAAAAAAQAAsAAAUvICCOZGme5ERRk6iy7qpyHCVStA3gNa/7txxwlwv2isSacYUc+l4tADQGQ1mvpBAAIfkECQsAAAAsAAAAABAACwAABS8gII5kaZ7kRFGTqLLuqnIcJVK0DeA1r/u3HHCXC/aKxJpxhRz6Xi0ANAZDWa+kEAA7AAAAAAAAAAAA"

  shiny::tagList(shiny::tagList(shiny::singleton(shiny::tags$body(shiny::tags$script(src =  "downloadInfo/downloadGen.js")))),
                 shiny::div(`data-for-btn` = ns("actionBusyButton"),
                            shiny::actionButton(ns("actionBusyButton"), text, icon = icon, class = class),
                            #button,
                            shiny::span(class = "btn-loading-container",
                                        shiny::img(src = loadingGif, class = "btn-loading-indicator", style = "display: none"),
                                        shiny::HTML("<i class = 'btn-done-indicator fa fa-check' style = 'display: none'> </i>"))))

}


#' @export
actionBusyButton <- function(input, output, session, expr) {

  ns <- session$ns
  buttonId <- ns("actionBusyButton")

  buttonReactive <- shiny::eventReactive(input$actionBusyButton,{
    if (shiny::is.reactive(expr))
      expr <- expr()
    session$sendCustomMessage('setButtonState', c('loading', buttonId))
    message("busyButton", input$actionBusyButton)
    out <- eval(expr)
    session$sendCustomMessage('setButtonState', c('done', buttonId))
    return(out)
  })
  buttonReactive

}