m = leaflet() %>% setView(lat = 36.778259, lng = -119.417931, zoom = 5) %>% addTiles() %>% addMarkers(lat = 36.778259, lng = -119.417931, popup = "California state, USA") m