inst/doc/enhanced-header.R

In shinydashboardPlus: Add More 'AdminLTE2' Components to 'shinydashboard'

## ----setup, include = FALSE---------------------------------------------------
library(bslib)
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----leftUi-code, eval=FALSE--------------------------------------------------
#  library(shiny)
#  library(shinyWidgets)
#  library(shinydashboard)
#  library(shinydashboardPlus)
#   shinyApp(
#     ui = dashboardPage(
#       header = dashboardHeader(
#         leftUi = tagList(
#           dropdownButton(
#             label = "Controls",
#             icon = icon("sliders-h"),
#             status = "primary",
#             circle = FALSE,
#             sliderInput(
#               inputId = "n",
#               label = "Number of observations",
#               min = 10, max = 100, value = 30
#             ),
#             prettyToggle(
#               inputId = "na",
#               label_on = "NAs kept",
#               label_off = "NAs removed",
#               icon_on = icon("check"),
#               icon_off = icon("trash")
#             )
#           ),
#           dropdownMenu(
#             type = "messages",
#             badgeStatus = "success",
#             messageItem(from = "Support Team", message = "This is the content of a message.", time = "5 mins"),
#             messageItem(from = "Support Team", message = "This is the content of another message.", time = "2 hours"),
#             messageItem(from = "New User", message = "Can I get some help?", time = "Today")
#           )
#         )
#       ),
#       sidebar = dashboardSidebar(),
#       body = dashboardBody(
#         setShadow(class = "dropdown-menu")
#       ),
#       title = "DashboardPage"
#     ),
#     server = function(input, output) { }
#   )

## ----dropdownBlock-code, eval=FALSE-------------------------------------------
#  shinyApp(
#    ui = dashboardPage(
#      header = dashboardHeader(
#        leftUi = tagList(
#          dropdownBlock(
#            id = "mydropdown",
#            title = "Dropdown 1",
#            icon = "sliders-h",
#            sliderInput(
#              inputId = "n",
#              label = "Number of observations",
#              min = 10, max = 100, value = 30
#            ),
#            prettyToggle(
#              inputId = "na",
#              label_on = "NAs kept",
#              label_off = "NAs removed",
#              icon_on = icon("check"),
#              icon_off = icon("trash")
#            )
#          ),
#          dropdownBlock(
#            id = "mydropdown2",
#            title = "Dropdown 2",
#            icon = "sliders-h",
#            prettySwitch(
#              inputId = "switch4",
#              label = "Fill switch with status:",
#              fill = TRUE,
#              status = "primary"
#            ),
#            prettyCheckboxGroup(
#              inputId = "checkgroup2",
#              label = "Click me!",
#              thick = TRUE,
#              choices = c("Click me !", "Me !", "Or me !"),
#              animation = "pulse",
#              status = "info"
#            )
#          )
#        )
#      ),
#      sidebar = dashboardSidebar(),
#      body = dashboardBody(
#        setShadow(class = "dropdown-menu")
#      ),
#      title = "DashboardPage"
#    ),
#    server = function(input, output) { }
#  )

## ----eval=TRUE, echo=FALSE----------------------------------------------------
card(
  shiny::tags$iframe(
    class = "html-fill-item", 
    src = "https://shinylive.io/r/app/#h=0&code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw48+rACZQe9IixnDRDZmy69+chUsYyACtQCunVSKn8AgunYiABA5O0HAXge7ui5YagBzOHsIJyduOCgZOEZ3T3lvfRkACQioxnYzaIB5E1JUXPswTMYhMAEBXEdQzloo+hZYrx8DAGVauHr0iqqnRRlWRvjmmQAhIn72bpDQ0lpSajhY0oBVTmjPRiJUGSIAdwhSqqmnNcYAN3WPADMTCAJZknY+fNJcByJcl4EHEB6PvNyABJig4ADwAWgcjAoaVW0XYv2mTiaiTh6R6oQc0HgSzAABFaGdIg4AHJEABW0EY-lKbwxoVoMACiw8pW4pDynEQAHpuZEYHxqOQMLQiNzSOF4JxudYZAKIAAZAAqAFFuTJaJxSNzGf5ucUAEzggCMADYAAwADzN5ow5NQNLwDnpTlm8xZzrAVlkQ0SxjMtJdDk4JnoboWuOsuW4RBKTqDVyIRHIMQ8qEKSvCDkTyeitIcBGo8k4uPIltI4IIFBTpWOmKcV1MtSwe2C9dCKOUaIAkuQYG3205drUJbFTZUke3OEQCLQoNQRrlSI8g6FuNCrrj2ZyeerNqhFJaMMQYIHJ+3aMQQh5LyuwDJ94fa6uHKpB6+J+-OwYe32B4PhxkUcPHHF9p1nedFw5Fdz3rdc4E3VkwG3VAuV5fw5m4UNjyIU88BfBxb2vQir0KDCJVDZ9YNCN9B1o+t6JonoAF9aOYxwBDAZiAF0gA", 
    height = "800", 
    width = "100%", 
    style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;", 
    allowfullscreen = "", 
    allow = "autoplay", 
    `data-external` = "1"
  ),
  full_screen = TRUE,
  style = "margin: 0 auto; float: none;"
)

## ----eval=FALSE---------------------------------------------------------------
#  library(shiny)
#  library(shinydashboard)
#  library(shinydashboardPlus)
#  
#  shinyApp(
#    ui = dashboardPage(
#      header = dashboardHeader(userOutput("user")),
#      sidebar = dashboardSidebar(),
#      body = dashboardBody(),
#      title = "User dropdown"
#    ),
#    server = function(input, output) {
#     output$user <- renderUser({
#      dashboardUser(
#         name = "Divad Nojnarg",
#         image = "https://adminlte.io/themes/AdminLTE/dist/img/user2-160x160.jpg",
#         title = "shinydashboardPlus",
#         subtitle = "Author",
#         footer = p("The footer", class = "text-center"),
#         fluidRow(
#          dashboardUserItem(
#           width = 6,
#           socialButton(
#            href = "https://dropbox.com",
#            icon = icon("dropbox")
#           )
#          ),
#          dashboardUserItem(
#           width = 6,
#           socialButton(
#            href = "https://github.com",
#            icon = icon("github")
#           )
#          )
#         )
#        )
#     })
#    }
#   )