fix issue with kiteplots extending past 1 (sometimes go to 1.01*K) #54 and #57

Author: mcsiple

R/app_server.R

@@ -853,9 +853,10 @@ app_server <- function( input, output, session ) {
                                      "low" = rangenames[1],
                                      "med" = rangenames[2],
                                      "high" = rangenames[3]
-      ))
-
-    kiteplot <- ggradar(PM.try2,
+      )) %>%
+      mutate_if(is.numeric,function(x)replace(x,which(x>1),1))
+   
+      kiteplot <- ggradar(PM.try2,
                         axis.labels = axis.labels,
                         grid.label.size = 3,
                         axis.label.size = 4,