inst/realtime/ui.R

In kimjam/srms: Package to automate tasks and reporting for OCD SRMS Team.

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')
        )
      )
    )
  )
)