R/clus_explorer_utils_ui.R

In bcgov/clus_explorer: CLUS Explorer

#' Add CSS class
#'
#' @param x Tag
#' @param class CSS class to add
#'
#' @return
#' @export
add_class <- function(x, class) {
  x$attribs <- append(x$attribs, list(class = class))
  x
}


#' Value box
#'
#' @param value Value
#' @param title Title
#' @param sparkobj Object
#' @param subtitle Subtitle
#' @param info Info
#' @param icon Icon
#' @param color Box colour
#' @param width Box width
#' @param href Box href
#'
#' @return
#' @export
valueBoxSpark <- function(
  value = NULL, title = NULL, sparkobj = NULL, subtitle = NULL, info = NULL,
  icon = NULL, color = "aqua", width = 4, href = NULL
){

  shinydashboard:::validateColor(color)

  if (!is.null(icon))
    shinydashboard:::tagAssert(icon, type = "i")

  info_icon <- tags$small(
    tags$i(
      class = "fa fa-info-circle fa-lg",
      title = info,
      `data-toggle` = "tooltip",
      style = "color: rgba(255, 255, 255, 0.75);"
    ),
    # bs3 pull-right
    # bs4 float-right
    class = "pull-right float-right"
  )

  boxContent <- div(
    class = paste0("small-box bg-", color),
    div(
      class = "inner",
      tags$small(title),
      if (!is.null(sparkobj)) info_icon,
      h3(value),
      if (!is.null(sparkobj)) sparkobj,
      p(subtitle)
    ),
    # bs3 icon-large
    # bs4 icon
    if (!is.null(icon)) div(class = "icon-large icon", icon, style = "z-index; 0")
  )

  if (!is.null(href))
    boxContent <- a(href = href, boxContent)

  div(
    class = if (!is.null(width)) paste0("col-sm-", width),
    boxContent
  )
}