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