Skip to content
Snippets Groups Projects
Commit eb371a96 authored by Fairbourn, Camille's avatar Fairbourn, Camille
Browse files

change sections for Fall 2019

parent ce1de832
No related branches found
No related tags found
No related merge requests found
......@@ -58,7 +58,7 @@ ui <- shinyUI(
),
uiOutput("tab"),
helpText(" "),
selectizeInput("display_section", "Choose Section to Display", c("All", 1:52)), #change the 52 to the current semester's number of sections
selectizeInput("display_section", "Choose Section to Display", c("All", 1:72)), #change the upper number to the current semester's number of sections
hr(),
tags$p("Written by Scott Manski"),
tags$p("This work is licensed under a "),
......@@ -67,7 +67,7 @@ ui <- shinyUI(
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Submit Data",
selectizeInput("section", labelMandatory("Section"), c("", 1:52)),
selectizeInput("section", labelMandatory("Section"), c("", 1:72)),
selectizeInput("sample_type", labelMandatory("Sample Type"), c("", "Judgment", "Random")),
numericInput("aveword", labelMandatory("Average Word Length"), value = NA),
actionButton("submit", "Submit", class = "btn-primary"),
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment