Update server.R

theloosygoose · Mar 7, 2019 · 314854f · 314854f
1 parent e8ee8c4
commit 314854f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/server.R b/server.R
@@ -220,7 +220,11 @@ df[df=="?"] <- 0
   ###################
 
   output$robot_num <- renderText({
-    paste("Team", input$robot_numSearch)
+   if (!is.element(input$robot_numSearch, df$Robot_Num)) {
+      "Overall"
+    } else {
+      paste("Team", input$robot_numSearch)
+    }
   })
   #THE RADAR CHARTS OF GODS
   output$robot_skills_radar <- renderPlot({