leaflet

# Load library
library(leaflet)
library(dplyr)
# Draw map
leaf <- leaflet() %>%
  # Add first tile
  addTiles(group="One") %>%
  # Add second tile
  addProviderTiles(providers$Esri.WorldTopoMap, group="Two") %>%
  # Add first marker
  addMarkers(lng=25.505206, lat=65.9767231, group="mark1") %>%
  # Add second marker
  addMarkers(lng=-45.445206, lat=45.5327231, group="mark2") %>%
  # Add Layer controls
  addLayersControl(baseGroups=c("One", "Two"),
                   overlayGroups=c("mark1", "mark2"),
                   options=layersControlOptions(collapsed=FALSE))

leaf %>% addProviderTiles("CartoDB.Positron")