Preliminaries

Load the leaflet library and set up dataframes for the marker overlays.

“Cat-Map” to identify zoos housing some of my favourite species

Use the check-boxes to learn which cats are where!

cat_map <-  leaflet() |> 
    addProviderTiles('Esri.WorldImagery',
                     group = 'Satellite') |> 
    addProviderTiles('OpenStreetMap',
                     group = 'Street map') |>
    addMarkers(data = lynx, ~lon, ~lat, popup = ~zoo_name, group = 'Canada Lynx') |> 
    addMarkers(data = sand_cat, ~lon, ~lat, popup = ~zoo_name, group = 'Sand Cat') |> 
    addMarkers(data = manul, ~lon, ~lat, popup = ~zoo_name, group = "Pallas' Cat") |> 
    addMarkers(data = clouded, ~lon, ~lat, popup = ~zoo_name, group = 'Clouded Leopard') |> 
    addLayersControl(
        baseGroups = c('Street map', 'Satellite'),
        overlayGroups = c('Canada Lynx', 'Sand Cat', "Pallas' Cat", 'Clouded Leopard'),
        options = layersControlOptions(collapsed = FALSE),
        position = 'bottomright')

cat_map