inst/shiny/ui.R

shinyUI(pageWithSidebar(
  headerPanel("Likert Package Demo"),
  
  sidebarPanel(
    tabsetPanel(
      tabPanel('Data',
               uiOutput('dataset_ui'),
               uiOutput('grouping_ui'),
               uiOutput('items_ui')
      ),
      tabPanel('Options',
               uiOutput('options_ui')
               # checkboxInput("include.center", "Include center", TRUE),
               # checkboxInput("centered", "Centered", TRUE),
               # checkboxInput("ordered", "Ordered", TRUE),
               # numericInput("center", "Center", 3, step=0.5),#TODO generalize based on default
               # numericInput("wrap", "Length of wrapped text", 30),
               # textInput('caption','Table Caption:','This is a table.'),#may have to wrap xtable for reactivity here
               # checkboxInput('include.n','Include n',TRUE),
               # checkboxInput('include.mean','Include mean',TRUE),
               # checkboxInput('include.sd','Include sd',TRUE),
               # checkboxInput('include.low','Include low',TRUE),
               # checkboxInput('include.neutral','Include neutral',TRUE),
               # checkboxInput('include.high','Include high',TRUE),
               # checkboxInput('include.missing','Include missing',TRUE)
      )
    )
  ),
  
  mainPanel(
    tabsetPanel(
      tabPanel("Plot", plotOutput("plot", height = '800px')), 
      # tabPanel("Summary", verbatimTextOutput("summary")),
      # tabPanel("Print", tableOutput('print')),
      tabPanel("Data", shiny::dataTableOutput('table'))
    )
  )
))
jbryer/likert documentation built on July 29, 2022, 3:42 p.m.