inst/shiny-itcare/ui.R

In jomuller/ITCARES: an Interactive Tool for Case-crossover Analyses of electronic medical REcords for patient Safety

shinyUI(fluidPage(
  
  h1(strong("IT-CARES:")," an interactive tool for case-crossover analysis of electronic medical records for patient safety",
     style = "text-align: center"),
  
  fluidRow(
    column(width = 3,
           h2(strong('Definition of cases'), style = "text-align: center"),
           wellPanel(
#            radioButtons(
#              inputId = 'database',
#              label = h3('Database'),
#              choices = c('Thrombosis', 'Bleeding'),
#              selected = 'Thrombosis', 
#              inline = TRUE
#            ),
             textInput(
             inputId = 'diagnosis_case',
             label = h3('Primary outcome',code('*required')),
             value =  'PE'
           ),
           

           sliderInput(inputId = "years", 
                       label = h3("Study Period"),
                       min = 2007, max = 2013, value = c(2007,2013)),
           
           sliderInput(inputId = "age", 
                       label = h3("Age"),
                       min = 0, max = 120, value = c(0,120)),
           
           textInput(
             inputId = 'diagnosis_exclusion',
             label = h3('Exclusion criteria'),
             value = 'EXCLUSION'
             ),
           
           radioButtons(
             inputId = 'exclude_in_case_stay',
             label = h3('Application of the exclusion criteria to the case stay'),
             choices = c(TRUE, FALSE),
             selected = TRUE, 
             inline = TRUE
           )
    )),
    
    column(6, 
           wellPanel(
             column(8,h4(code('Update to query dataset with new parameters'))),
             column(4,submitButton("Update")),hr()),
           plotOutput("graph"),
           hr(),
           DT::dataTableOutput("table")
    ),
    
    column(3, 
           h2(strong('Definition of the exposure'), style = "text-align: center"),
           wellPanel(
             textInput(
               inputId = 'exposure_procedures',
             label = h3('Procedures', code('*required')),
             value = 'THR'
           ),
           
           radioButtons(
             inputId = 'screening_index_stay',
             label = h3('Screening case stay'),
             choices = c(TRUE, FALSE),
             selected = TRUE, 
             inline = TRUE
           ),
           
           radioButtons(
             inputId = 'unique_exposure',
             label = h3('Only one exposure allowed'),
             choices = c(TRUE, FALSE),
             selected = TRUE, 
             inline = TRUE
           ),
           
           sliderInput(inputId = "los_max", 
                       label = h3("Maximum length of stay"),
                       min = 30, max = 365, value = 30),
           
           h3('Case & Control Periods',code('*must be <365 days')),
           sliderInput(inputId = "interval_length", 
                       label = "Length of one interval (days)",
                       min = 30, max = 365, value = 42),
           
           
           sliderInput(inputId = "number_of_interval", 
                       label = "Number of interval",
                       min = 1, max = 9, value = 7)
    ))
  )
))