estmap/R/inspire_grids.R

#' INSPIRE kaardiruudud
#'
<<<<<<< HEAD
#' 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 config list configuration file ruut::get_config()
#' @param schema str database schema name. Deafult is 'inspire'
#' @param url link ESRI Shapefile download url.
#' @seealso [ruut::get_config()]
#' @keywords postgis, maps, ESRI Shpfile
#' @export
#' @examples
#' ## Not run:
#' ##
#' ## inspire_grids()
#' ##
#' ## End(**Not run**)
inspire_grids <- function(config = NULL, schema = "inspire",
                          url = NULL) {
=======
#' Source: https://www.eea.europa.eu/data-and-maps/data/eea-reference-grids-2. Andmed salvestatakse postgisi andmebaasi. Schema = 'inspire'. Koniguratsiooni muutmiseks muuda konfiguratsiooni.
#' @keywords postgis, maps, ESRI Shpfile
#' @export
#' @examples
#' inspire_grids()
inspire_grids <- function() {
>>>>>>> 741ecf506c7c6a793e1f9b1ca6fab87fdf5738ce
  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 <- tempdir()
    # Download link
    if (is.null(url)) url <- "https://www.eea.europa.eu/data-and-maps/data/eea-reference-grids-2/gis-files/estonia-shapefile/download"
    # Estonia shapefile (ZIP archive)
    map_shapefile <- "Estonia_shapefile.zip"
    # Download and save
    saveTo <- sprintf("%s/%s", tmp_dir, map_shapefile)
    utils::download.file(
      url = url,
      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 = ".shp")
    ls_long <- list.files(path = tmp_dir, pattern = ".shp", full.names = T)
    tbl_names <- unlist(strsplit(x = ls, split = ".shp"))
    # Export to postgis
    if (is.null(config)) config <- ruut::get_config()
    config$schema <- schema
    # New schema
    ruut::db_create_new_schema(conf = config)
    # Multi layer
    for (i in 1:length(tbl_names)) {
      print(tbl_names[i])
      config$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 = config,
        id = "fid", crs_source = "EPSG:3035", crs_target = "EPSG:4326",
        geometry_type = "POLYGON"
      )
      cat(sprintf(
        "\nShp fail %s kopeeriti POSTGIS andmebaasi %s.%s\n\n",
        ls[i], config$schema, config$table
      ))
    }
  }
}