data-raw/prg_endpoints.R

In petrbouchal/pragr: Tools for visualising Prague data

## code to prepare `prg_endpoints` dataset goes here

prg_endpoints <- tibble::tribble(~name, ~type, ~description, ~endpoint, ~url,
                         "orto", "tile", "Latest aerial map", "",
                         "https://gs-pub.praha.eu/imgs/rest/services/ort/letecke_snimkovani/ImageServer",
                         "dsm", "tile", "DSM base map tile", "",
                         "https://mpp.praha.eu/arcgis/rest/services/MAP/DSM_HLS/ImageServer",
                         "dsm", "image", "DSM base map image", "",
                         "https://gs-pub.praha.eu/arcgis/rest/services/map/zakladni_mapa/MapServer",
                         "zakladni", "image", "", "",
                         "https://mpp.praha.eu/arcgis/rest/services/MAP/Zakladni_mapa/MapServer",
                         "orto", "image", "", "",
                         "https://gs-pub.praha.eu/imgs/rest/services/ort/letecke_snimkovani/ImageServer",
                         "orto_mimoveg", "tile", "", "",
                         "https://gs-pub.praha.eu/imgs/rest/services/ort/mimovegetacni_letecke_snimkovani/ImageServer",
                         "orto_mimoveg", "image", "", "",
                         "https://gs-pub.praha.eu/imgs/rest/services/ort/mimovegetacni_letecke_snimkovani/ImageServer",
                         "orto_2003", "image", "", "",
                         "https://mpp.praha.eu/arcgis/rest/services/MAP/Ortofotomapa_archiv/MapServer",
                         "orto_1945", "tile", "", "",
                         "https://tiles.arcgis.com/tiles/SBTXIEUGWbqzUecw/arcgis/rest/services/Ortofotomapa_Prahy_1945/MapServer",
                         "orto_archiv", "image", "", "",
                         "https://mpp.praha.eu/arcgis/rest/services/MAP/Ortofotomapa_archiv/MapServer",
                         "mpp_z02", "tile", "", "",
                         "https://tiles.arcgis.com/tiles/SBTXIEUGWbqzUecw/arcgis/rest/services/Z02_Hlavni_vykres/MapServer",
                         "uap", "image", "", "",
                         "https://mpp.praha.eu/arcgis/rest/services/UAP/UAP_platne/MapServer",
                         "mapy_archiv", "image", "", "",
                         "https://mpp.praha.eu/arcgis/rest/services/ARCH/Mapove_podklady_archiv/MapServer",
                         "cisarske_otisky_1840", "tile", "", "",
                         "https://gs-pub.praha.eu/imgs/rest/services/arch/cisarske_otisky_1440/ImageServer",
                         "cisarske_otisky_1840", "image", "", "",
                         "https://gs-pub.praha.eu/imgs/rest/services/arch/cisarske_otisky_1440/ImageServer",
                         "cisarske_otisky_1840_velke", "tile", "", "",
                         "https://gs-pub.praha.eu/imgs/rest/services/arch/cisarske_otisky_720/ImageServer",
                         "cisarske_otisky_1840_velke", "image", "", "",
                         "https://gs-pub.praha.eu/imgs/rest/services/arch/cisarske_otisky_720/ImageServer",
                         "pup_v4", "tile", "", "",
                         "https://mpp.praha.eu/arcgis/rest/services/PUP/PUP_v4/ImageServer") %>%
  dplyr::mutate(endpoint = dplyr::case_when(
    (stringr::str_detect(url, "/ImageServer") & type != "tile") ~ "exportImage",
    (stringr::str_detect(url, "/MapServer") & type != "tile") ~ "export",
    type == "tile" ~ ""))

usethis::use_data(prg_endpoints, overwrite = TRUE)