Changed picker input for radio group input for sensor

dashboardShiny/app.R

@@ -48,7 +48,7 @@ ui <- bootstrapPage(
   
   ## Leaflet Map
   ### This is supposed to cover 100% of the page
-  leafletOutput(outputId = "MyMap", width = "100%", height = "100%"),
+  leafletOutput(outputId = "myMap", width = "100%", height = "100%"),
   
   ## Absolute Panel
   ### It overlays map and shows choice of date and sensor and then 
@@ -62,10 +62,15 @@ ui <- bootstrapPage(
               value = "2020-01-01", min = "2016-04-01", max = "2023-06-30",
               format = "yyyy-mm-dd", startview = "year"),
     ### Sensor Picker
-    pickerInput(inputId = "chosen_sensor_input", 
-                label = h4("Select Measurement Type"), 
-                choices = c("Salinity","Temperature"),
-                selected = "", width = "91%"),
+    radioGroupButtons(inputId = "sensor",
+                      label = h4("Select Sensor"), 
+                      choices = c("SALT", "TEMP"),
+                      individual = TRUE,
+                      checkIcon = list(
+                        yes = tags$i(class = "fa fa-circle", 
+                                     style = "color: steelblue"),
+                        no = tags$i(class = "fa fa-circle-o", 
+                                    style = "color: steelblue"))),
     ### Plotly Graph
     plotlyOutput(outputId = "graph", height = 15),
     ### Style of Panel
@@ -124,7 +129,7 @@ server <- function(input, output, session) {
   
   ## Plot filtered points on the map
   observe({
-    leafletProxy(mapID = "myMap", data = rctv$filtered_points) %>%
+    leafletProxy(mapId = "myMap") %>%
       addMarkers(data = rctv$filtered_points, lng = ~Longitude, lat = ~Latitude, 
                  label = ~Station_ID, layerId = ~Station_ID, popup = ~Station_ID)  
   })