library(shinydashboard)
library(lubridate)
dashboardPage(
dashboardHeader(title = 'CL Reagents Real Time Reporting',
titleWidth = 400),
dashboardSidebar(
sidebarMenu(
menuItem(text = 'On Pace to Surpass Alert Limit', tabName = 'reagalert',
icon = icon('line-chart')),
menuItem(text = 'Pareto Chart', tabName = 'ParetoChart',
icon = icon('bar-chart')),
menuItem(text = 'Raw Data', tabName = 'rawdata',
icon = icon('table'))
)
),
dashboardBody(
tags$head(tags$style(HTML('
.skin-blue .main-header .logo {
background-color: #3c8dbc;
}
.skin-blue .main-header .logo:hover {
background-color: #3c8dbc;
}
'))),
tabItems(
tabItem(
tabName = 'reagalert',
fluidRow(
DT::dataTableOutput('reagtab')
)
),
tabItem(
tabName = 'ParetoChart',
fluidRow(
box(
title = NULL,
# selectInput('callsubject', 'Call Subject:', call_subj)
uiOutput('callsubject')
)
),
fluidRow(
box(
plotOutput('pareto'),
width = 10
),
downloadButton('dlpareto', 'Download Pareto')
),
fluidRow(
box(
tableOutput('rawpareto'),
width = 10
),
box(
radioButtons('parfiletype', 'File type:', choices = c('.xlsx', '.csv')),
downloadButton('dlparraw', 'Download'),
width = 2
)
)
),
tabItem(
tabName = 'rawdata',
fluidRow(
box(
radioButtons('rawdatafiletype', 'File type:',
choices = c('.xlsx', '.csv'))
),
box(
downloadButton('dlrawdata', 'Download'),
width = 2
)
),
fluidRow(
DT::dataTableOutput('rawdf')
)
)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.