R/cascadess.R

In cascadess: A Style Pronoun for 'htmltools' Tags

#' @import rlang
#' @importFrom crayon
#'   red bold
NULL

## nocov start

#' Cascadess
#'
#' @description
#'
#' Styles for htmltools tags.
#'
#' For styles to be applied you must include a call to `cascadess()` in your
#' shiny application or htmltools tags.
#'
#' @export
#' @examples
#'
#' \dontrun{
#' library(shiny)
#'
#' shinyApp(
#'   ui = list(
#'     cascadess(),
#'     div(
#'       .style %>%
#'         padding(3) %>%
#'         background("indigo") %>%
#'         font("light"),
#'       "Etiam laoreet quam sed arcu."
#'     )
#'   ),
#'   server = function(input, output) {
#'
#'   }
#' )
#' }
#'
cascadess <- function() {
  htmltools::htmlDependency(
    name = "cascadess",
    version = utils::packageVersion("cascadess"),
    src = c(
      file = system.file("www/cascadess", package = "cascadess"),
      href = "cascadess/cascadess"
    ),
    stylesheet = "cascadess.min.css"
  )
}

## nocov end