R/f7Preloader.R

In RinteRface/shinyMobile: Mobile Ready 'shiny' Apps with Standalone Capabilities

#' Framework7 preloader
#'
#' \code{showF7Preloader} shows a preloader.
#' When \code{target} is NULL, the overlay applies
#' to the entire view, preventing to perform any actions.
#' When type is not NULL, \code{target} is ignored.
#'
#' @param target Element where preloader overlay will be added.
#' @param color Preloader color.
#' @param type Leave NULL to use the default preloader
#' or use either "dialog" or "progress".
#' @param id When type isn't NULL, an id is required
#' to be able to use \link{updateF7Preloader}.
#' @param session Shiny session object.
#' @export
#' @rdname preloader
#' @examples
#' if (interactive()) {
#'   library(shiny)
#'   library(shinyMobile)
#'
#'   # preloader in container
#'   shinyApp(
#'     ui = f7Page(
#'       title = "Preloader in container",
#'       f7SingleLayout(
#'         navbar = f7Navbar(
#'           title = "Preloader in container"
#'         ),
#'         # main content
#'         f7Block(
#'           f7Button("compute", "Compute")
#'         ),
#'         f7Block(textOutput("calc"))
#'       )
#'     ),
#'     server = function(input, output, session) {
#'       res <- reactiveVal(NULL)
#'       progress <- reactiveVal(NULL)
#'       output$calc <- renderText(res())
#'
#'       observeEvent(input$compute, {
#'         res(NULL)
#'         progress(0)
#'         showF7Preloader(color = "red", type = "progress", id = "loader")
#'         for (i in seq_along(1:100)) {
#'           Sys.sleep(0.025)
#'           progress(i)
#'           updateF7Preloader(
#'             id = "loader",
#'             title = "Computing ...",
#'             text = sprintf("Done: %s/100", progress()),
#'             progress = progress()
#'           )
#'         }
#'         res("Result!")
#'       })
#'
#'       observeEvent(res(), {
#'         hideF7Preloader(id = "loader")
#'       })
#'     }
#'   )
#' }
showF7Preloader <- function(target = NULL, color = NULL,
                            type = NULL, id = NULL,
                            session = shiny::getDefaultReactiveDomain()) {
  if (is.null(id) && !is.null(type)) {
    stop("When type is not NULL, id must have a value.")
  }
  message <- dropNulls(
    list(
      el = target,
      color = color,
      type = type,
      id = session$ns(id)
    )
  )
  session$sendCustomMessage("show-preloader", message)
}

#' Framework7 preloader
#'
#' \code{updateF7Preloader} updates a preloader.
#'
#' @param title Dialog title.
#' @param text Dialog text.
#' @param progress Progress bar content.
#' @export
#' @rdname preloader
updateF7Preloader <- function(
    id, title = NULL,
    text = NULL, progress = NULL, session = shiny::getDefaultReactiveDomain()) {
  message <- dropNulls(
    list(
      id = session$ns(id),
      title = title,
      text = text,
      progress = progress
    )
  )
  session$sendCustomMessage("update-preloader", message)
}

#' Framework7 preloader
#'
#' \code{hideF7Preloader} hides a preloader.
#'
#' @rdname preloader
#' @export
hideF7Preloader <- function(target = NULL, id = NULL,
                            session = shiny::getDefaultReactiveDomain()) {
  message <- dropNulls(list(el = target, id = id))
  session$sendCustomMessage("hide-preloader", message)
}