emily dickinson

Quarto

museum_coords <- tibble(
  address = "Emily Dickinson Museum in Amherst, Massachusetts"
) %>%
  tidygeocoder::geocode(address, method = "osm")

Passing 1 address to the Nominatim single address geocoder

Query completed in: 1 seconds

museum_coords

# A tibble: 1 × 3
  address                                            lat  long
  <chr>                                            <dbl> <dbl>
1 Emily Dickinson Museum in Amherst, Massachusetts  42.4 -72.5

museum_map <- museum_coords %>% 
  leaflet() %>%
  addTiles() %>%
  addMarkers(lng=~long, lat=~lat, 
             popup = ~address
             ) %>%  
  setView(lat = museum_coords$lat, 
          lng = museum_coords$long, 
          zoom = 25
          )
 museum_map