Leaflet

01

library(leaflet)
library(widgetframe)
l <- leaflet() %>% addTiles() %>% setView(0,0,2)
frameWidget(l, height = '400')

02

library(leaflet)
suppressPackageStartupMessages(library(widgetframe))
l <- leaflet() %>% addProviderTiles(providers$CartoDB.DarkMatter) %>% setView(0,0,2)
frameWidget(l, height = '300')