R/mdi.R

In shunsambongi/shuny: Shiny things

#' @export
useMdi <- function() {
  htmltools::htmlDependency(
    name = "mdi", version = "4.5.95", src = fs::path_package("shuny", "www", "mdi"),
    stylesheet = "css/materialdesignicons.min.css"
  )
}

#' @export
mdi <- function(name) {
  class <- paste0("mdi mdi-", name)
  tag <- tags$i(class = class)

  htmltools::htmlDependencies(tag) <- useMdi()

  htmltools::browsable(tag)
}