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
)
)
)
)
})
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.