Wsrtjtyk

I have a dataset that have the long and lat information, as well as the 'Experiment' info for each long and lat.

I used addCircleMarkers to add markers. And I want to have popup options for each marker. I tried to call "Experiment" at popup, but it gives me errors that it can't find this variable. I am not sure where it went wrong.

Dataset

ui <- fluidPage(

  titlePanel("Land Explorer"),



  selectInput("year", "Year of G2F", choices = c("2014", "2015", "2016", "All")),



  fluidRow(

    mainPanel(

    tags$style(type = "text/css", "#map {height: calc(100vh - 80px) !important;}"),

    leafletOutput("map"), width = "100%", height = 1000)

  )

)



server <- function(input, output){



  pal <- colorFactor("RdYlGn", county_simplified$zone, reverse = T, na.color = "white")



  state_popup <- paste0("<strong>State: </strong>", 

                    county_simplified$region, 

                    "<br><strong>County: </strong>", 

                    county_simplified$subregion)



  g2f <- reactive ({

    if (input$year  == "2014"){

      g2f_latlong = g2f_latlong[g2f_latlong$year == 2014, ]

   }

    else if (input$year == "2015"){

      g2f_latlong = g2f_latlong[g2f_latlong$year == 2015, ]

   }

     else if (input$year == "2016") {

       g2f_latlong = g2f_latlong[g2f_latlong$year == 2016, ]

   }

     else if (input$year == "All"){

       g2f_latlong = g2f_latlong

   }

     else (g2f_latlong = g2f_latlong)

 })



 output$map <- renderLeaflet({



 leaflet() %>% 

  addTiles() %>%

  addPolygons(data = county_simplified, weight = 1,

              color = "white",

              dashArray = '3',

              fillOpacity = 0.7,

              fillColor = ~pal(zone), 

              popup = state_popup) %>%

  addPolygons(data = state_boundry, weight = 1, color = "grey", fill = NA) %>%

  addLegend(pal = pal, value = county_simplified$zone, position = "topright", title = "Zones") %>%

  addCircleMarkers(data = g2f(), lng = ~long, lat = ~lat, popup = ~Experiment, radius = 1)

 })



}



 shinyApp(ui = ui, server = server)

You are not returning the filtered data from reactive environment, so your addCircleMarkers function do not get data to plot on leaflet. Change your reactive environment as shown below and i hope this solves your issue.

g2f <- reactive({

    if (input$year  == "2014") {

      filtered_data <-  g2f_latlong[g2f_latlong$year == 2014, ]

    }else if (input$year == "2015") {

      filtered_data <-  g2f_latlong[g2f_latlong$year == 2015, ]

    }else if (input$year == "2016") {

      filtered_data <-  g2f_latlong[g2f_latlong$year == 2016, ]

    }else if (input$year == "All") {

      filtered_data <-  g2f_latlong

    }else {filtered_data <-  g2f_latlong}

    return(filtered_data)

  })