estmap/R/maaamet_kaardiruudud.R

#' Maa-ameti kaardiruudukesed
#'
#' Source: https://www.eea.europa.eu/data-and-maps/data/eea-reference-grids-2. Andmed salvestatakse postgisi andmebaasi. Schema = 'inspire'. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
#' @return No output.
#' @seealso [ruut::get_config()], [ruut::copy_shp_to_db()]
#' @keywords postgis, maps, ESRI Shpfile, OSM
#' @export
#' @examples
#' ## Not run:
#' ##
#' ## maaamet_kaardiruudud()
#' ##
#' ## End(**Not run**)
maaamet_kaardiruudud <- function(conf = NULL) {
  ans <- utils::askYesNo("Do you want to import maps into database?")
  if (!ans) {
    cat("\n------------------------\n")
    cat("Kaardikihte ei lisatud.")
    cat("\n------------------------\n")
  }
  if (ans) {
    # Download links
    urls <- c(
      "https://geoportaal.maaamet.ee/docs/pohikaart/epk2T_SHP.zip",
      "https://geoportaal.maaamet.ee/docs/pohikaart/epk10T_SHP.zip",
      "https://geoportaal.maaamet.ee/docs/pohikaart/epk20T_shp.zip",
      "https://geoportaal.maaamet.ee/docs/pohikaart/epk50T_shp.zip",
      "https://geoportaal.maaamet.ee/docs/pohikaart/epk100T_shp.zip",
      "https://geoportaal.maaamet.ee/docs/pohikaart/epk200T_shp.zip"
    )
    # Estonia shapefile (ZIP archive)
    map_shapefile <- "maaamet_shapefile.zip"
    # Export to postgis
    if (is.null(conf)) {
      conf <- ruut::get_config()
      conf$schema <- "maaamet"
    }
    # New schema
    ruut::db_create_new_schema(conf = conf)
    for (j in 1:length(urls)) {
      # Temp directory
      tmp_dir <- sprintf("/tmp/maaamet_epk/%s", j)
      if (!dir.exists(tmp_dir)) {
        dir.create(tmp_dir, recursive = T)
      }
      # Download and save
      saveTo <- sprintf("%s/%s", tmp_dir, map_shapefile)
      utils::download.file(
        url = urls[j],
        destfile = saveTo, method = "curl", extra = "-L"
      )
      # Unzip
      utils::unzip(saveTo, overwrite = T, exdir = tmp_dir)
      # List of files
      ls <- list.files(path = tmp_dir, pattern = ".dbf")
      ls_long <- list.files(path = tmp_dir, pattern = ".dbf", full.names = T)
      tbl_names <- unlist(strsplit(x = ls, split = ".dbf"))
      # Multi layer
      for (i in 1:length(tbl_names)) {
        print(tbl_names[i])
        conf$table <- tbl_names[i]
        source <- sprintf('"%s" "%s"', tmp_dir, tbl_names[i])
        ## Export to postgis database.
        ruut::copy_shp_to_db(
          dir = tmp_dir, layer = tbl_names[i], conf = conf,
          id = "fid", crs_source = "EPSG:3301", crs_target = "EPSG:4326",
          geometry_type = "POLYGON"
        )
        cat(sprintf(
          "\nShp fail %s kopeeriti POSTGIS andmebaasi %s.%s\n\n",
          ls[i], conf$schema, conf$table
        ))
      }
      # Delete temp directory
      # system(sprintf("rm -rf %s/*", tmp_dir))
    }
  }
}