standby
Alerts, Notifications and Loading Screen in 'Shiny'

Package index
Search the standby package
Vignettes
Functions
86
Source code
38
Man pages
15
Home
/
CRAN
/
standby
/
R/utils.R

R/utils.R
In standby: Alerts, Notifications and Loading Screen in 'Shiny'

Defines functions spinner_css viz_bordered_line viz_line viz_dashed viz_spinner viz_dots viz_circles viz_squares viz_bars spinkit_wander spinkit_fold spinkit_grid spinkit_circle_fade spinkit_circle spinkit_swing spinkit_flow spinkit_pulse spinkit_wave spinkit_bounce spinkit_chase spinkit_plane glanceLoaders glanceSpinners glanceVizLoad glanceSpinkit glanceThreeDots 

glanceThreeDots <- function(type = "elastic") {
  tags$div(
    class = "standby",
    tags$div(
      class = paste0("dot-", type, " standby-wait")
    )
  )
}

glanceSpinkit <- function(type = "rotating-plane", color = NULL, width = NULL, height = NULL) {
  tags$div(
    class = "standby",
    tags$div(
      class = paste0("sk-plane", " standby-wait"),
      style = c(paste0('width:', width, ';'),
                paste0('height:', height, ';'),
                paste0('background-color:', color, ';'))
    )
  )
}

glanceVizLoad <- function(type = "bars") {
  tags$div(
    class = "standby",
    tags$div(
      class = paste0("lv-bars lv-mid lg", " standby-wait"),
      lapply(1:8, function(i) div())
    )
  )
}

glanceSpinners <- function(type = "load1") {
  tags$div(
    class = "standby",
    tags$div(
      class = type,
      tags$div(class = "loader")
    )
  )
}

glanceLoaders <- function(type = "default") {
  tags$div(
    class = "standby",
    tags$div(
      id = "loader",
      class = paste0("loader loader-", type, " is-active")
    )
  )
}

spinkit_plane <- function(color = NULL, size = NULL) {
  tags$div(
    class = "sk-plane standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";"),
              if (!is.null(color)) paste0('background-color: ', color, ';'))
  )
}

spinkit_chase <- function(size = NULL) {
  tags$div(
    class = "sk-chase standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:6, function(i) div(class = "sk-chase-dot"))
  )
}

spinkit_bounce <- function(color = NULL, size = NULL) {
  tags$div(
    class = "sk-bounce standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:2, function(i) div(class = "sk-bounce-dot",
                                style = c(if (!is.null(color)) paste0('background-color:', color, ';'))))
  )
}

spinkit_wave <- function(color = NULL, size = NULL) {
  tags$div(
    class = "sk-wave standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:5, function(i) div(class = "sk-wave-rect",
                                style = c(if (!is.null(color)) paste0('background-color:', color, ';'))))
  )
}

spinkit_pulse <- function(color = NULL, size = NULL) {
  tags$div(
    class = "sk-pulse standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";"),
              if (!is.null(color)) paste0('background-color:', color, ';'))
  )
}

spinkit_flow <- function(color = NULL, size = NULL) {
  tags$div(
    class = "sk-flow standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:3, function(i) div(class = "sk-flow-dot",
                                style = c(if (!is.null(color)) paste0('background-color:', color, ';'))))
  )
}

spinkit_swing <- function(color = NULL, size = NULL) {
  tags$div(
    class = "sk-swing standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:3, function(i) div(class = "sk-swing-dot",
                                style = c(if (!is.null(color)) paste0('background-color:', color, ';'))))
  )
}


spinkit_circle <- function(size = NULL) {
  tags$div(
    class = "sk-circle standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:12, function(i) div(class = "sk-circle-dot"))
  )
}

spinkit_circle_fade <- function(size = NULL) {
  tags$div(
    class = "sk-circle-fade standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:12, function(i) div(class = "sk-circle-fade-dot"))
  )
}

spinkit_grid <- function(color = NULL, size = NULL) {
  tags$div(
    class = "sk-grid standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:9, function(i) div(class = "sk-grid-cube",
                                style = c(if (!is.null(color)) paste0('background-color:', color, ';'))))
  )
}

spinkit_fold <- function(size = NULL) {
  tags$div(
    class = "sk-fold standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:4, function(i) div(class = "sk-fold-cube"))
  )
}

spinkit_wander <- function(color = NULL, size = NULL) {
  tags$div(
    class = "sk-wander standby-wait",
    style = c(if (!is.null(size)) paste0('width: ', size, '; height: ', size, ";")),
    lapply(1:4, function(i) div(class = "sk-wander-cube",
                                style = c(if (!is.null(color)) paste0('background-color:', color, ';'))))
  )
}

# vizLoad
viz_bars <- function(size = "large", bg_color = NULL) {

  scale <- switch(size,
                  "large"  = "lv-mid lg",
                  "medium" = "lv-mid md",
                  "small"  = "sm lvl-5",
                  "tiny"   = "tiny lvl-5")

  tags$div(
    class = paste0("lv-bars ", scale, " standby-wait"),
    lapply(1:8, function(i) div(
      style = c(if (!is.null(bg_color)) paste0('background-color:', bg_color, ';'))
    ))
  )
}

viz_squares <- function(size = "large", bg_color = NULL) {

  scale <- switch(size,
                  "large"  = "lv-mid lg",
                  "medium" = "lv-mid md",
                  "small"  = "sm lvl-5",
                  "tiny"   = "tiny lvl-5")

  tags$div(
    class = paste0("lv-squares ", scale, " standby-wait"),
    lapply(1:4, function(i) div(
      style = c(if (!is.null(bg_color)) paste0('background-color:', bg_color, ';'))
    ))
  )
}

viz_circles <- function(size = "large") {

  scale <- switch(size,
                  "large"  = "lv-mid lg",
                  "medium" = "lv-mid md",
                  "small"  = "sm lvl-5",
                  "tiny"   = "tiny lvl-5")

  tags$div(
    class = paste0("lv-circles ", scale, " standby-wait"),
    lapply(1:12, function(i) div())
  )
}

viz_dots <- function(size = "large") {

  scale <- switch(size,
                  "large"  = "lv-mid lg",
                  "medium" = "lv-mid md",
                  "small"  = "sm lvl-5",
                  "tiny"   = "tiny lvl-5")

  tags$div(
    class = paste0("lv-dots ", scale, " standby-wait"),
    lapply(1:4, function(i) div())
  )
}

viz_spinner <- function(size = "large", bg_color = NULL) {

  scale <- switch(size,
                  "large"  = "lv-mid lg",
                  "medium" = "lv-mid md",
                  "small"  = "sm lvl-5",
                  "tiny"   = "tiny lvl-5")

  tags$div(
    class = paste0("lv-spinner ", scale, " standby-wait"),
    div(
      style = c(if (!is.null(bg_color)) paste0('border-top: 10px solid ', bg_color, ';'))
    )
  )
}

viz_dashed <- function(size = "large", bg_color = NULL) {

  scale <- switch(size,
                  "large"  = "lv-mid lg",
                  "medium" = "lv-mid md",
                  "small"  = "sm lvl-5",
                  "tiny"   = "tiny lvl-5")

  tags$div(
    class = paste0("lv-dashed ", scale, " standby-wait"),
    div(
      style = c(if (!is.null(bg_color)) paste0('border: 12px dashed ', bg_color, ';'))
    )
  )
}

viz_line <- function(size = "large", bg_color = NULL) {

  scale <- switch(size,
                  "fluid"  = "lv-mid",
                  "large"  = "lg lv-mid",
                  "medium" = "md lv-mid",
                  "small"  = "sm lv-mid")

  tags$div(
    class = paste0("lv-line ", scale, " standby-wait"),
    style = c("height: 5px;"),
    div(
      style = c(if (!is.null(bg_color)) paste0('background-color: ', bg_color, ';'),
                'height: 5px;')
    )
  )
}

viz_bordered_line <- function(size = "large", bg_color = NULL) {

  scale <- switch(size,
                  "fluid"  = "lv-mid",
                  "large"  = "lg lv-mid",
                  "medium" = "md lv-mid",
                  "small"  = "sm lv-mid")

  tags$div(
    class = paste0("lv-bordered_line ", scale, " standby-wait"),
    style = c("height: 21px;",
              if (!is.null(bg_color)) paste0('border: 5px solid ', bg_color, ';')),
    div(
      style = c(if (!is.null(bg_color)) paste0('background-color: ', bg_color, ';'),
                'height: 5px;')
    )
  )
}

spinner_css <- function(color) {
  col_rgb <- grDevices::col2rgb(color)
    rgb_color <- paste0("rgba(", paste0(col_rgb, collapse = ", "), ", ")
    paste0(
            "-webkit-animation: load5 1.1s infinite ease;
            animation: load5 1.1s infinite ease; 
            @-webkit-keyframes load5 {
              0%,
              100% {
                box-shadow: 0em -2.6em 0em 0em ", color, ", 
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.5),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.7);
              }
              12.5% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.7),
                  1.8em -1.8em 0 0em ", color, ", 
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.5);
              }
              25% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.5),
                  1.8em -1.8em 0 0em ", rgb_color, "0.7),
                  2.5em 0em 0 0em ", color, ", 
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              37.5% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.5),
                  2.5em 0em 0 0em ", rgb_color, "0.7),
                  1.75em 1.75em 0 0em ", color, ", 
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              50% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.5),
                  1.75em 1.75em 0 0em ", rgb_color, "0.7),
                  0em 2.5em 0 0em ", color, ",  
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              62.5% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.5),
                  0em 2.5em 0 0em ", rgb_color, "0.7),
                  -1.8em 1.8em 0 0em ", color, ", 
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              75% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.5),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.7),
                  -2.6em 0em 0 0em ", color, ", 
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              87.5% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.5),
                  -2.6em 0em 0 0em ", rgb_color, "0.7),
                  -1.8em -1.8em 0 0em ", color, ";
              }
            } ", 
            "@keyframes load5 {
              0%,
              100% {
                box-shadow: 0em -2.6em 0em 0em ", color, ",
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.5),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.7);
              }
              12.5% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.7),
                  1.8em -1.8em 0 0em ", color, ", 
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.5);
              }
              25% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.5),
                  1.8em -1.8em 0 0em ", rgb_color, "0.7),
                  2.5em 0em 0 0em ", color, ", 
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              37.5% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.5),
                  2.5em 0em 0 0em ", rgb_color, "0.7),
                  1.75em 1.75em 0 0em ", color, ", 
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              50% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.5),
                  1.75em 1.75em 0 0em ", rgb_color, "0.7),
                  0em 2.5em 0 0em ", color, ", 
                  -1.8em 1.8em 0 0em ", rgb_color, "0.2),
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              62.5% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.5),
                  0em 2.5em 0 0em ", rgb_color, "0.7),
                  -1.8em 1.8em 0 0em ", color, ", 
                  -2.6em 0em 0 0em ", rgb_color, "0.2),
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              75% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.5),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.7),
                  -2.6em 0em 0 0em ", color, ", 
                  -1.8em -1.8em 0 0em ", rgb_color, "0.2);
              }
              87.5% {
                box-shadow: 0em -2.6em 0em 0em ", rgb_color, "0.2),
                  1.8em -1.8em 0 0em ", rgb_color, "0.2),
                  2.5em 0em 0 0em ", rgb_color, "0.2),
                  1.75em 1.75em 0 0em ", rgb_color, "0.2),
                  0em 2.5em 0 0em ", rgb_color, "0.2),
                  -1.8em 1.8em 0 0em ", rgb_color, "0.5),
                  -2.6em 0em 0 0em ", rgb_color, "0.7),
                  -1.8em -1.8em 0 0em ", color, ";
              }
            }")
}

Try the standby package in your browser

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

standby documentation built on Oct. 30, 2024, 9:30 a.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close