fixed the averages issue

GettysburgSubmissionApp/app.R

@@ -198,7 +198,8 @@ server <- shinyServer(function(input, output, session) {
         if (input$display_section != "All"){
           average_data <- average_data[average_data$section == as.numeric(input$display_section), ]
         }
-        paste("Average of Judgment Sample Averages:", round(mean(average_data$aveword), 2))
+        average_data <- average_data[!is.na(average_data$aveword), ]
+        paste("Average of Judgment Sample Averages:", round(mean(average_data$aveword, rm.na = TRUE), 2))
       } else {
         ""
       }
@@ -214,7 +215,8 @@ server <- shinyServer(function(input, output, session) {
         if (input$display_section != "All"){
           average_data <- average_data[average_data$section == as.numeric(input$display_section), ]
         }
-        paste("Average of Random Sample Averages:", round(mean(average_data$aveword), 2))
+        average_data <- average_data[!is.na(average_data$aveword), ]
+        paste("Average of Random Sample Averages:", round(mean(average_data$aveword, rm.na = TRUE), 2))
       } else {
         ""
       }