inst/shiny-dashboards/cohort_reviewer/ui.R

In JayAchar/tbreportr: Tools for Reporting TB Data

# cohort_reviewer app UI

ui <- fluidPage(
  # themeSelector(),
  # Application title
  titlePanel("TB cohort data reviewer",
             windowTitle = "TB cohort"),
  
  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
      fileInput(inputId = "file", label = "Upload admission data file - must be .csv",
                multiple = FALSE, accept = "text/csv"),
    
    conditionalPanel(
      condition = "output.fileUploaded",
      uiOutput("year_filter"),
      selectInput("filter_month",
                  label = "Choose month:",
                  choices = c("All", month.name),
                  selected = month.name[lubridate::month(Sys.Date() - 1)],
                  multiple = TRUE)
    )
    ),
      
    
    # Show a plot of the generated distribution
    mainPanel(
      textOutput("dbtime"),
        tabsetPanel(
        tabPanel("Cohort inclusion",
                 tabsetPanel(tabPanel("Plot", plotOutput("inclusion_plot")),
                             tabPanel("Data", dataTableOutput("inclusion_table")))
        ),
        tabPanel("Age by DST",
                 tabsetPanel(tabPanel("Plot", plotOutput("age_dst")),
                             tabPanel("Data", dataTableOutput("age_dst_dt")))
        ),
        tabPanel("Cohort inclusion by district",
                 tabsetPanel(tabPanel("Plot", plotOutput("inclusion_district_plot")))
        )
      )
    )
  
)
)