R/theme.R

In shinyNextUI: 'HeroUI' 'React' Template for 'shiny' Apps

#' @keywords internal
sun_icon <- function() {
  tags$svg(
    width = 24,
    height = 24,
    viewBox = "0 0 24 24",
    tags$g(
      fill = "currentColor",
      tags$path(d = "M19 12a7 7 0 11-7-7 7 7 0 017 7z"),
      tags$path(
        d = "M12 22.96a.969.969 0 01-1-.96v-.08a1 1 0 012 0 1.038 1.038 0 01-1 1.04zm7.14-2.82a1.024 1.024 0 01-.71-.29l-.13-.13a1 1 0 011.41-1.41l.13.13a1 1 0 010 1.41.984.984 0 01-.7.29zm-14.28 0a1.024 1.024 0 01-.71-.29 1 1 0 010-1.41l.13-.13a1 1 0 011.41 1.41l-.13.13a1 1 0 01-.7.29zM22 13h-.08a1 1 0 010-2 1.038 1.038 0 011.04 1 .969.969 0 01-.96 1zM2.08 13H2a1 1 0 010-2 1.038 1.038 0 011.04 1 .969.969 0 01-.96 1zm16.93-7.01a1.024 1.024 0 01-.71-.29 1 1 0 010-1.41l.13-.13a1 1 0 011.41 1.41l-.13.13a.984.984 0 01-.7.29zm-14.02 0a1.024 1.024 0 01-.71-.29l-.13-.14a1 1 0 011.41-1.41l.13.13a1 1 0 010 1.41.97.97 0 01-.7.3zM12 3.04a.969.969 0 01-1-.96V2a1 1 0 012 0 1.038 1.038 0 01-1 1.04z"
      )
    )
  )
}

#' @keywords internal
moon_icon <- function() {
  tags$svg(
    width = 24,
    height = 24,
    viewBox = "0 0 24 24",
    tags$g(
      fill = "currentColor",
      tags$path(
        d = "M21.53 15.93c-.16-.27-.61-.69-1.73-.49a8.46 8.46 0 01-1.88.13 8.409 8.409 0 01-5.91-2.82 8.068 8.068 0 01-1.44-8.66c.44-1.01.13-1.54-.09-1.76s-.77-.55-1.83-.11a10.318 10.318 0 00-6.32 10.21 10.475 10.475 0 007.04 8.99 10 10 0 002.89.55c.16.01.32.02.48.02a10.5 10.5 0 008.47-4.27c.67-.93.49-1.519.32-1.79z"
      )
    )
  )
}

#' @keywords internal
.theme_switcher <- input("ThemeSwitcher")

#' Theme switcher helper
#'
#' Change between light and dark mode
#'
#' @param value Switch status.
#' @param label Input label.
#' @param startContent Icon when selected.
#' @param endContent Icon when not selected.
#'
#' @return
#' Object with `shiny.tag` class suitable for use in the UI of a Shiny app.
#'
#' @export
#' @examples
#' if (interactive()) {
#'   library(shiny)
#'   library(shinyNextUI)
#'   library(shiny.react)
#'
#'   ui <- nextui_page(
#'     theme_switcher(),
#'     card(card_body("My card"))
#'   )
#'
#'   server <- function(input, output, session) {
#'     observe({
#'       print(input$theme)
#'     })
#'   }
#'
#'   shinyApp(ui, server)
#'
#' }
theme_switcher <- function(
  value = TRUE,
  label = "Change theme",
  startContent = sun_icon(),
  endContent = moon_icon()
) {
  .theme_switcher(
    "theme_switcher",
    label = label,
    startContent = startContent,
    endContent = endContent,
    value = value
  )
}