library(pragr)
prg <- CzechData::load_RUIAN_settlement(pragr::prg_kod) ## ℹ Using cached data. ## ✔ Data unpacked.
plot(prg, max.plot = 1)
ggplot2::ggplot() + prg_basemap(prg, image_service = "https://gs-pub.praha.eu/imgs/rest/services/geo/ig_mapy_geologicke_pomery/ImageServer", buffer = 100, width = 2000)