From eb371a964ece66b2e84ddb03fc5dd09e82eee991 Mon Sep 17 00:00:00 2001
From: Camille Fairbourn <fairbour@msu.edu>
Date: Thu, 22 Aug 2019 14:51:53 -0400
Subject: [PATCH] change sections for Fall 2019
---
GettysburgSubmissionApp/app.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/GettysburgSubmissionApp/app.R b/GettysburgSubmissionApp/app.R
index 3d91697..add0067 100644
--- a/GettysburgSubmissionApp/app.R
+++ b/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"),
--
GitLab