estmap/R/osm_shp.R

#' OSM Esri Shapefile
#'
#' Source:  \url{https://download.geofabrik.de/europe/} . Andmed salvestatakse postgisi andmebaasi. Schema = 'osm_shp'. Koniguratsiooni muutmiseks muuda konfiguratsiooni muutujat. 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:
#' ##
#' ## osm_shp()
#' ##
#' ## End(**Not run**)
osm_shp <- 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) {
    # Temp directory
    tmp_dir <- "/tmp/osm_shp"
    if (!dir.exists(tmp_dir)) {
      dir.create(tmp_dir)
    }
    # Download link
    url <- "https://download.geofabrik.de/europe"
    # Estonia shapefile (ZIP archive)
    map_shapefile <- "estonia-latest-free.shp.zip"
    # Download and save
    url_download <- sprintf("%s/%s", url, map_shapefile)
    saveTo <- sprintf("%s/%s", tmp_dir, map_shapefile)
    if (!file.exists(saveTo)) {
      utils::download.file(
        url = url_download,
        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"))
    # Export to postgis
    if (is.null(conf)) {
      conf <- ruut::get_config()
      conf$schema <- "osm_shp"
    }
    # New schema
    ruut::db_create_new_schema(conf = conf)
    # Multi layer
    for (i in 1:length(tbl_names)) {
      print(tbl_names[i])
      conf$table <- gsub("gis_osm_", "", gsub("_free_1", "", 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:4326", crs_target = "EPSG:4326",
        geometry_type = "PROMOTE_TO_MULTI"
      )
      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))
  }
}