inst/App_B/ui.R

In carlganz/CSP2017: Using Shiny to Efficiently Process Survey Data

library(shiny)
library(DT)

ui <- fluidPage(titlePanel("App B"),
                sidebarLayout(
                  sidebarPanel(
                    width = 4,
                    selectizeInput(
                      "var",
                      "Select a variable to upcode",
                      choices = c("continent_of_origin"),
                      options = list(
                        placeholder = "Select a variable to upcode",
                        onInitialize = I('function() { this.setValue(""); }')
                      )
                    )
                  ),
                  mainPanel(
                    tags$script(
                      HTML(
                        "Shiny.addCustomMessageHandler('unbind-DT', function(id) {
                        if (Shiny.unbindAll($('#'+id).find('table').length>0)) {
                        Shiny.unbindAll($('#'+id).find('table').DataTable().table().node())
                        }
                        })"
        )
                    ),
        conditionalPanel(
          condition = 'input.var !== "" & input.var !== null',
          h2("Contintent of Origin"),
          fluidRow(column(
            width = 5,
            p(
              "On the right are the set levels for the
              contitent of origin variable. Below is a table
              of answers respondents gave when they were asked their
              country of origin. Please categorize the responses to
              the correct continent. "
            )
            ),
            column(width = 7,
                   tableOutput("formats"))),
          DT::dataTableOutput("responses"),
          actionButton("submit", "Submit")
          )
        )
          ))