inst/examples/app.R

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

source("global.R")

shinyApp(
  ui = dashboardPage(
    dashboardHeader(
      title = tagList(
        span(class = "logo-lg", "shinydashboardPlus"),
        img(src = "https://camo.githubusercontent.com/25bb653d828cc411aa1eabc6e4a097977fc6cae173c89c9056d77937f0588790/68747470733a2f2f72696e746572666163652e636f6d2f696e73742f696d616765732f7368696e7964617368626f617264506c75732e737667")
      ),
      leftUi = tagList(
        dropdownBlock(
          id = "mydropdown",
          title = "Dropdown 1",
          icon = icon("sliders"),
          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-can")
          )
        ),
        dropdownBlock(
          id = "mydropdown2",
          title = "Dropdown 2",
          icon = icon("sliders"),
          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"
          )
        )
      ),
      dropdownMenu(
        type = "tasks",
        badgeStatus = "danger",
        taskItem(value = 20, color = "aqua", "Refactor code"),
        taskItem(value = 40, color = "green", "Design new layout"),
        taskItem(value = 60, color = "yellow", "Another task"),
        taskItem(value = 80, color = "red", "Write documentation")
      ),
      userOutput("user"),
      fixed = TRUE
    ),
    dashboardSidebar(
      id = "mysidebar",
      sidebarMenu(
        menuItem(
          text = "New boxes",
          tabName = "boxes",
          badgeLabel = "new",
          badgeColor = "green",
          icon = icon("briefcase")
        ),
        menuItem(
          text = "New buttons",
          tabName = "buttons",
          badgeLabel = "new",
          badgeColor = "green",
          icon = icon("cubes")
        ),
        menuItem(
          text = "New Box elements",
          tabName = "boxelements",
          badgeLabel = "new",
          badgeColor = "green",
          icon = icon("table-cells")
        ),
        menuItem(
          text = "New extra elements",
          tabName = "extraelements",
          badgeLabel = "new",
          badgeColor = "green",
          icon = icon("circle-plus")
        )
      ),
      hr(),
      skinSelector()
    ),
    controlbar = dashboardControlbar(
      skin = "dark",
      controlbarMenu(
        controlbarItem(
          title = "Tab 1",
          icon = icon("desktop"),
          active = TRUE,
          sliderInput(
            inputId = "inputsidebar1",
            label = "Number of observations:",
            min = 0,
            max = 1000,
            value = 500
          )
        ),
        controlbarItem(
          icon = icon("paint-brush"),
          title = "Tab 2",
          numericInput(
            inputId = "inputsidebar2",
            label = "Observations:",
            value = 10,
            min = 1,
            max = 100
          )
        )
      )
    ),
    dashboardBody(

      # use a bit of shinyEffects
      setShadow(class = "dropdown-menu"),
      setShadow(class = "box"),

      # some styling
      tags$head(
        tags$style(
          rel = "stylesheet",
          type = "text/css",
          href = "https://cdnjs.cloudflare.com/ajax/libs/highlight.js/9.12.0/styles/qtcreator_dark.min.css"
        ),
        tags$script(
          src = "https://cdnjs.cloudflare.com/ajax/libs/highlight.js/9.12.0/highlight.min.js"
        ),
        tags$script(
          "$(function() {
            $('.sidebar-toggle').on('click', function() {
              $('.skinSelector-widget').toggle();
            });
          });
          "
        )
      ),

      # All tabs
      tabItems(
        boxes_tab,
        buttons_tab,
        box_elements_tab,
        extra_elements_tab
      )
    ),
    title = "shinyDashboardPlus",
    footer = dashboardFooter(
      left = "By Divad Nojnarg",
      right = "Zurich, 2019"
    )
  ),
  server = function(input, output) {
    # app button
    output$appBtnVal <- renderText(input$myAppButton)
    observeEvent(input$myAppButton, {
      showModal(modalDialog(
        title = "Important message",
        "Thanks for clicking on me!"
      ))
    })

    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })

    output$distPlot2 <- renderPlot({
      hist(rnorm(input$obs2))
    })

    output$flipPlot <- renderPlot({
      hist(rnorm(input$flip_obs))
    })

    output$data <- renderTable(
      {
        head(mtcars[, c("mpg", input$variable), drop = FALSE])
      },
      rownames = TRUE
    )

    output$value <- renderText({
      input$somevalue
    })

    output$boxSidebarPlot <- renderPlot({
      hist(rnorm(input$slider_boxsidebar))
    })

    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,
            descriptionBlock(
              number = "17%",
              numberColor = "green",
              numberIcon = icon("caret-up"),
              header = "$35,210.43",
              text = "TOTAL REVENUE",
              rightBorder = TRUE,
              marginBottom = FALSE
            )
          ),
          dashboardUserItem(
            width = 6,
            descriptionBlock(
              number = "18%",
              numberColor = "red",
              numberIcon = icon("caret-down"),
              header = "1200",
              text = "GOAL COMPLETION",
              rightBorder = FALSE,
              marginBottom = FALSE
            )
          )
        )
      )
    })
  }
)