R/shiny.R

In romainfrancois/cpasbien: Scrapping data from cpasbien

#' @importFrom shiny Progress
#' @export
progress_shiny <- function (session, message){
  p <- NULL
  list(
    init = function(n){
      p <<- Progress$new( session, min = 0, max = n, message = message )
      p$set(0)
    },
    step = function() {
      p$set( p$getValue() + 1 )
    },
    term = function(){
      p$close()
    }
  )
}