r Descr["description"].

m <- leaflet(Spec@collections) %>%
    #addTiles() %>%
    addProviderTiles("OpenTopoMap") %>%
    addScaleBar(position = "bottomleft") %>%
    addCircleMarkers(
        color = "red",
        fillColor = "yellow",
        stroke = TRUE,
        weight = 2,
        opacity = 1,
        fillOpacity = 0.5,
        radius = 6) %>%
    addSimpleGraticule(interval = 5) %>%
    ## addGraticule(interval = 5) %>%
    addMiniMap(width = 170, height = 170)

m

mapshot(m, file = "images/map-sudamerica.png", vwidth = 700, vheight = 600)


kamapu/specimensDB documentation built on March 15, 2024, 1:27 p.m.