change sections for Fall 2019

GettysburgSubmissionApp/app.R

@@ -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"),