Using services identified by URL

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)