Muudatused eesti kõik kaardid ja mullakaart.

NAMESPACE

@@ -5,6 +5,7 @@ export(gtfs)
 export(inspire_grids)
 export(maaamet_aadressandmed)
 export(maaamet_eesti)
+export(maaamet_eesti_muutmine)
 export(maaamet_ehak)
 export(maaamet_kaardiruudud)
 export(maaamet_kataster)

R/maaamet_eesti.R

@@ -60,8 +60,7 @@ maaamet_eesti <- function(conf = NULL) {
       source <- sprintf('"%s" "%s"', tmp_dir_kihid, tbl_names[i])
       ## Export to postgis database.
       conf$primary_key <- "id"
-      conf$s_srs <- "EPSG:3301"
-      conf$t_srs <- "EPSG:3301"
+      conf$a_srs <- "EPSG:3301"
       geometry_type <- "PROMOTE_TO_MULTI"
       if (tbl_names[i] %in% c("Kirik_p")) encoding <- "ISO-8859-4" else encoding <- "UTF-8"
       cmd <- sprintf(
@@ -71,11 +70,11 @@ maaamet_eesti <- function(conf = NULL) {
           "PG:\" dbname='%s' host=%s port=%d user='%s' password='%s' ",
           "sslmode=%s active_schema=%s \" -lco DIM=2 %s -overwrite -nlt GEOMETRY ",
           "-lco GEOMETRY_NAME=geom -lco FID=%s -nln %s.%s ",
-          "-s_srs %s -t_srs %s -nlt %s -skipfailures"
+          "-a_srs %s -nlt %s -skipfailures"
         ), encoding, encoding,
         conf$dbname, conf$host, conf$port, conf$user, conf$password,
         conf$sslmode, conf$schema, source, conf$primary_key, conf$schema, conf$table,
-        conf$s_srs, conf$t_srs, geometry_type
+        conf$a_srs, geometry_type
       )
       system(cmd)
       cat(sprintf(

R/maaamet_eesti_muutmine.R

@@ -0,0 +1,54 @@
+#' Maa-ameti kogu Eesti andmestiku teisendamised
+#'
+#' Source: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Topokaardid-ja-aluskaardid/Eesti-pohikaart-1-10000/Laadi-pohikaart-alla-p612.html} . Andmed salvestatakse postgisi andmebaasi. Schema = 'eesti'. 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
+#' \dontrun{
+#'
+#' conf <- ruut::get_config()
+#' maaamet_eesti_muutmine(conf = conf)
+#' }
+maaamet_eesti_muutmine <- function(conf = NULL) {
+  ans <- utils::askYesNo("Do you want to import maps into database?", default = F)
+  if (!ans | is.na(ans)) {
+    cat("\n------------------------\n")
+    cat("Kaardikihte ei lisatud.")
+    cat("\n------------------------\n")
+    return()
+  }
+  if (ans) {
+    # Export to postgis
+    if (is.null(conf)) {
+      conf <- ruut::get_config()
+      conf$schema <- "eesti"
+    }
+
+    ## ==================================================================================================
+    ## !!!!!!!!!!!!!!! Muud teisendused !!!!!!!!!!!!!!!!!!
+    ## Võtab palju aega, kuni 10 tundi.
+    ## 1. Üheks tervikobjektiks ühendamine mingi tunnuse järele.
+    andmed <- data.frame("tabeli_nimi" = character(0), "tunnus" = character(0))
+    andmed <- rbind(andmed, data.frame("tabeli_nimi" = "e_201_meri_a", "tunnus" = "kood"))
+    andmed <- rbind(andmed, data.frame("tabeli_nimi" = "e_202_seisuveekogu_a", "tunnus" = "kkr_kood"))
+    andmed <- rbind(andmed, data.frame("tabeli_nimi" = "e_203_vooluveekogu_a", "tunnus" = "kkr_kood"))
+    andmed <- rbind(andmed, data.frame("tabeli_nimi" = "e_306_margala_a", "tunnus" = "tyyp"))
+    andmed <- rbind(andmed, data.frame("tabeli_nimi" = "e_307_turbavali_a", "tunnus" = "tyyp"))
+    andmed <- rbind(andmed, data.frame("tabeli_nimi" = "e_305_puittaimestik_a", "tunnus" = "tyyp"))
+
+    # ruut::qgis_algorithm_search_by_word('Dissolve')
+    for (i in 1:nrow(andmed)) {
+      conf$table <- andmed$tabeli_nimi[i]
+      input <- ruut::construct_to_gpkg_output_postgres_str(conf = conf, geometry_field = "geom", geometry_type = "Polygon", srid = 3301, checkPrimaryKeyUnicity = 1, key = "id")
+      conf$table <- sprintf("%s_%s", conf$table, "dissolved")
+      output <- ruut::construct_to_gpkg_output_postgres_str(conf = conf, geometry_field = "geom", geometry_type = NULL, srid = NULL, checkPrimaryKeyUnicity = FALSE, key = NULL)
+      str <- sprintf("{ 'FIELD' : ['%s'], 'INPUT' : '%s', 'OUTPUT' : '%s' }", andmed$tunnus[i], input, output)
+      cmd <- ruut::construct_qgis_output_result_to_better_format(str = str, algorithm = "native:dissolve")
+      system(cmd)
+      cat(sprintf("\n\n%s/%s ---------------\nAndmed %s on muudetud.\n", i, nrow(andmed), andmed$tabeli_nimi[i]))
+    }
+  }
+}

R/maaamet_mullakaart.R

@@ -59,8 +59,7 @@ maaamet_mullakaart <- function(conf = NULL) {
       source <- sprintf('"%s" "%s"', tmp_dir, tbl_names[i])
       ## Export to postgis database.
       conf$primary_key <- "id"
-      conf$s_srs <- "EPSG:3301"
-      conf$t_srs <- "EPSG:3301"
+      conf$a_srs <- "EPSG:3301"
       geometry_type <- "PROMOTE_TO_MULTI"
       cmd <- sprintf(
         paste0(
@@ -69,11 +68,11 @@ maaamet_mullakaart <- function(conf = NULL) {
           "PG:\" dbname='%s' host=%s port=%d user='%s' password='%s' ",
           "sslmode=%s active_schema=%s \" -lco DIM=2 %s -overwrite -nlt GEOMETRY ",
           "-lco GEOMETRY_NAME=geom -lco FID=%s -nln %s.%s ",
-          "-s_srs %s -t_srs %s -nlt %s"
+          "-a_srs %s -nlt %s"
         ),
         conf$dbname, conf$host, conf$port, conf$user, conf$password,
         conf$sslmode, conf$schema, source, conf$primary_key, conf$schema, conf$table,
-        conf$s_srs, conf$t_srs, geometry_type
+        conf$a_srs, geometry_type
       )
       system(cmd)
 

man/maaamet_eesti_muutmine.Rd

@@ -0,0 +1,32 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/maaamet_eesti_muutmine.R
+\name{maaamet_eesti_muutmine}
+\alias{maaamet_eesti_muutmine}
+\title{Maa-ameti kogu Eesti andmestiku teisendamised}
+\usage{
+maaamet_eesti_muutmine(conf = NULL)
+}
+\arguments{
+\item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
+}
+\value{
+No output.
+}
+\description{
+Source: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Topokaardid-ja-aluskaardid/Eesti-pohikaart-1-10000/Laadi-pohikaart-alla-p612.html} . Andmed salvestatakse postgisi andmebaasi. Schema = 'eesti'. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
+}
+\examples{
+\dontrun{
+
+conf <- ruut::get_config()
+maaamet_eesti_muutmine(conf = conf)
+}
+}
+\seealso{
+\code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}
+}
+\keyword{ESRI}
+\keyword{OSM}
+\keyword{Shpfile,}
+\keyword{maps,}
+\keyword{postgis,}