leafletMap.R

output$map1 <- renderLeaflet({
    leaflet() %>%
      setView(lng=-112.0356, lat=33.50975, zoom=10) %>%
      addTiles() %>%
      addMarkers(data = dataset %>% filter(attributes.Ambience.hipster),
                 lng = ~longitude,
                 lat = ~latitude,
                 popup = paste(sep="<br/>",
                               paste(as.vector(dataset$name), ", Stars:", as.vector(dataset$stars)),
                               paste0(as.vector(dataset$full_address)),
                               "<style> .leaflet-popup-content-wrapper {
                           background-color: rgba(66, 191, 93, 0.7);
                           color: #f9f6f4;
                           font-size:11px;
                           font-weight: bold;
                           }</style>")
                 ,
                 icon = ~iconSet[c("red")]
                 )%>%
      addCircleMarkers(data = dataset %>% filter(!attributes.Ambience.hipster),
                       lng = ~longitude,
                       lat = ~latitude,
                       opacity = .8,
                       radius = 1,
                       color = 'green',
                       popup = paste(sep="<br/>",
                                     paste(as.vector(dataset$name), ", Stars:", as.vector(dataset$stars)),
                                     paste0(as.vector(dataset$full_address)),
                                     "<style> .leaflet-popup-content-wrapper {
                                     background-color: rgba(66, 191, 93, 0.7);
                                     color: #f9f6f4;
                                     font-size:11px;
                                     font-weight: bold;
  }</style>")
      )
  })