Vanade funktsioonide kustutamine.

geomeetria_teisendused/create_boundarybox_3301_to_pk.R

@@ -1,57 +0,0 @@
-#' Funktsioon: piirikasti leidmine piirkonnale
-#' Piirikast leitakse 2-astmelisena. Esmalt genereeritakse piirkonna
-#' peale projektsiooniga EPSG:3301 ruutvõrgustik suurusega 500x500 meetrit, seda
-#' arvestusega, et teises etapis leitavast piirikastist ei jääks välja
-#' arvestatav osa 1x1 km ruutusid. Need ruudud saavad hiljem aluseks map algebra
-#' piirkonna maatriksitele. Teises etapis leitakse ruudustikele piirikast,
-#' mis on piirkonna ristiklülikukujuline piirikast projektsioonis EPSG:3301.
-
-create_boundarybox_3301_to_pk <- function(obj) {
-  # obj - objekti nimetus (näiteks: valga)
-  input <- sprintf(
-    'postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"xxx_artikkel_210127\".\"%s_piir\" (geometry)',
-    obj
-  )
-  ## a. ruutvõrgustiku konstrueerimine
-  # ruut::qgis_algorithm_search_by_word(str = "grid")
-  algorithm <- "native:creategrid"
-  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-  result <- qgisprocess::qgis_run_algorithm(
-    algorithm = algorithm,
-    CRS = "EPSG:3301",
-    # EXTENT = '25.454305528,26.259893095,59.454118579,59.714621582 [EPSG:4326]',
-    EXTENT = input,
-    HOVERLAY = 0,
-    HSPACING = 500,
-    TYPE = 2,
-    VOVERLAY = 0,
-    VSPACING = 500,
-    OUTPUT = qgisprocess::qgis_tmp_vector(),
-    .quiet = TRUE
-  )
-  result
-  pk_grid <- sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT"))
-  # sf::st_geometry(pk_grid) %>% plot()
-  ## b. ruutvõrgustikule piirikasti leidmine
-  # ruut::qgis_algorithm_search_by_word(str = "minimumboundinggeometry")
-  algorithm <- "qgis:minimumboundinggeometry"
-  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-  result1 <- qgisprocess::qgis_run_algorithm(
-    algorithm = algorithm,
-    FIELD = "",
-    INPUT = pk_grid,
-    TYPE = 3,
-    OUTPUT = qgisprocess::qgis_tmp_vector(),
-    .quiet = TRUE
-  )
-  result1
-  # pk_grid_bb <- sf::read_sf(qgisprocess::qgis_output(result1, "OUTPUT"))
-  # sf::st_geometry(pk_grid_bb) %>% plot()
-  ## c. kopeerimine andmebaasi laiendiga '_bb'
-  conf <- ruut::get_config()
-  conf$table <- sprintf("%s_bb", obj)
-  conf$schema <- "xxx_artikkel_210127"
-  ruut::copy_qgis_object_to_db(x = result1, conf = conf, geometry_type = "POLYGON", crs_source = "EPSG:3301")
-  cat(sprintf("\n-----------------\nAlgoritm: %s valmis.\n\n", algorithm))
-}
-# create_boundarybox_3301_to_pk()

geomeetria_teisendused/create_epk10t_grid_to_pk_bb.R

@@ -1,41 +0,0 @@
-#' Funktsioon: piirkonna EPSG:3301 piirikasti sisse ruudustiku genereerimine
-#' Piirikastis paiknevate 5x5 km ruudustike leidmine. Fail salvestatakse
-#' andmebaasi laiendiga 'piirkond_epk10t_grid'.
-
-create_epk10t_grid_to_pk_bb <- function(obj) {
-  # obj - objekti nimetus (näiteks: valga)
-  ## a. ruutvõrgustiku konstrueerimine
-  # ruut::qgis_algorithm_search_by_word(str = "joinattributesbylocation")
-  algorithm <- "native:joinattributesbylocation"
-  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-  result <- qgisprocess::qgis_run_algorithm(
-    algorithm = algorithm,
-    DISCARD_NONMATCHING = 1,
-    INPUT = 'postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"(SELECT * FROM maaamet.epk10t_grid )\" (geometry)',
-    JOIN = sprintf('postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"(SELECT * FROM xxx_artikkel_210127.%s_bb )\" (geometry)', obj),
-    JOIN_FIELDS = c("id"),
-    METHOD = 0,
-    PREDICATE = c(0, 1),
-    PREFIX = "",
-    OUTPUT = qgisprocess::qgis_tmp_vector(),
-    NON_MATCHING = qgisprocess::qgis_tmp_vector(),
-    .quiet = TRUE
-  )
-  result
-  ## !!!!!!!! NB !!!!!!!!
-  ## Siin on 2 objekti väljundiks 'OUTPUT' ja 'NON_MATCHING'. Peame valima
-  ## ainult ühe ja teisendama.
-  pk_grid <- sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT"))
-  # sf::st_geometry(pk_grid) %>% plot()
-  # pk_grid_non <- sf::read_sf(qgisprocess::qgis_output(result, "NON_MATCHING"))
-  # sf::st_geometry(pk_grid_non) %>% plot()
-  ## b. kopeerimine andmebaasi laiendiga '_epk10t_grid'
-  conf <- ruut::get_config()
-  conf$table <- sprintf("%s_epk10t_grid", obj)
-  conf$schema <- "xxx_artikkel_210127"
-  result$NON_MATCHING <- NULL
-  result$JOINED_COUNT <- NULL
-  ruut::copy_qgis_object_to_db(x = result, conf = conf, geometry_type = "PROMOTE_TO_MULTI")
-  cat(sprintf("\n-----------------\nAlgoritm: %s valmis.\n\n", algorithm))
-}
-# create_epk10t_grid_to_pk_bb()

geomeetria_teisendused/create_epk200t_bb.R

@@ -1,26 +0,0 @@
-#' Funktsioon: epk200t (100x100km) kaardiruutudele piirikasti (boundary box) loomine
-#' Olemasolevatele ruutudele 'maaamet.epk200t' luuakse piirikast ning
-#' salvestatakse see tabelisee nimega 'maaamet.epk200t_bb'.
-
-create_epk200t_bb <- function() {
-  # ruut::qgis_algorithm_search_by_word(str = "bounding")
-  algorithm <- "qgis:minimumboundinggeometry"
-  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-  result <- qgisprocess::qgis_run_algorithm(
-    algorithm = algorithm,
-    FIELD = "",
-    INPUT = 'postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"maaamet\".\"epk200t\" (geometry)',
-    TYPE = 3,
-    OUTPUT = qgisprocess::qgis_tmp_vector(),
-    .quiet = TRUE
-  )
-  # result
-  epk200t_bb <- sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT"))
-  sf::st_geometry(epk200t_bb) %>% plot()
-  conf <- ruut::get_config()
-  conf$table <- "epk200t_bb"
-  conf$schema <- "maaamet"
-  ruut::copy_qgis_object_to_db(x = result, conf = conf, geometry_type = "POLYGON")
-  cat(sprintf("\n-----------------\nAlgoritm: %s valmis.\n\n", algorithm))
-}
-# create_epk200t_bb()

geomeetria_teisendused/create_epk2t_grid_to_pk_bb.R

@@ -1,41 +0,0 @@
-#' Funktsioon: piirkonna EPSG:3301 piirikasti sisse ruudustiku genereerimine
-#' Piirikastis paiknevate 1x1 km ruudustike leidmine. Fail salvestatakse
-#' andmebaasi laiendiga 'piirkond_epk2t_grid'.
-
-create_epk2t_grid_to_pk_bb <- function(obj) {
-  # obj - objekti nimetus (näiteks: valga)
-  ## a. ruutvõrgustiku konstrueerimine
-  # ruut::qgis_algorithm_search_by_word(str = "joinattributesbylocation")
-  algorithm <- "native:joinattributesbylocation"
-  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-  result <- qgisprocess::qgis_run_algorithm(
-    algorithm = algorithm,
-    DISCARD_NONMATCHING = 1,
-    INPUT = 'postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"(SELECT * FROM maaamet.epk2t_grid )\" (geometry)',
-    JOIN = sprintf('postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"(SELECT * FROM xxx_artikkel_210127.%s_bb )\" (geometry)', obj),
-    JOIN_FIELDS = c("id"),
-    METHOD = 0,
-    PREDICATE = c(0, 1),
-    PREFIX = "",
-    OUTPUT = qgisprocess::qgis_tmp_vector(),
-    NON_MATCHING = qgisprocess::qgis_tmp_vector(),
-    .quiet = TRUE
-  )
-  result
-  ## !!!!!!!! NB !!!!!!!!
-  ## Siin on 2 objekti väljundiks 'OUTPUT' ja 'NON_MATCHING'. Peame valima
-  ## ainult ühe ja teisendama.
-  pk_grid <- sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT"))
-  # sf::st_geometry(pk_grid) %>% plot()
-  # pk_grid_non <- sf::read_sf(qgisprocess::qgis_output(result, "NON_MATCHING"))
-  # sf::st_geometry(pk_grid_non) %>% plot()
-  ## b. kopeerimine andmebaasi laiendiga '_epk10t_grid'
-  conf <- ruut::get_config()
-  conf$table <- sprintf("%s_epk2t_grid", obj)
-  conf$schema <- "xxx_artikkel_210127"
-  result$NON_MATCHING <- NULL
-  result$JOINED_COUNT <- NULL
-  ruut::copy_qgis_object_to_db(x = result, conf = conf, geometry_type = "PROMOTE_TO_MULTI")
-  cat(sprintf("\n-----------------\nAlgoritm: %s valmis.\n\n", algorithm))
-}
-# create_epk2t_grid_to_pk_bb()

geomeetria_teisendused/create_pk_epk10t.R

@@ -1,20 +0,0 @@
-#' Funktsioon: piirkonna piiri katvate epk10t (5x5km) ruutude loomine
-#' Valitud objekti järele leitakse milliste ruutude 'maaamet.epk10t' sees
-#' asub valitud piirkond.
-
-create_pk_epk10t <- function(obj) {
-  # obj - objekti nimetus (näiteks: valga)
-  # ruut::qgis_algorithm_search_by_word(str = "extract")
-  algorithm <- "native:extractbylocation"
-  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-  result <- qgisprocess::qgis_run_algorithm(
-    algorithm = algorithm,
-    INPUT = 'postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"maaamet\".\"epk10t\" (geometry)',
-    INTERSECT = sprintf('postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'ogc_fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"xxx_artikkel_210127\".\"%s_piir\" (geometry)', obj),
-    OUTPUT = qgisprocess::qgis_tmp_vector(),
-    PREDICATE = c(0, 1),
-    .quiet = TRUE
-  )
-  result
-}
-# create_pk_epk10t(obj = objektid[i])

geomeetria_teisendused/create_pk_epk2t.R

@@ -1,20 +0,0 @@
-#' Funktsioon: piirkonna piiri katvate epk2t (5x5km) ruutude loomine
-#' Valitud objekti järele leitakse milliste ruutude 'maaamet.epk2t' sees
-#' asub valitud piirkond.
-
-create_pk_epk2t <- function(obj) {
-  # obj - objekti nimetus (näiteks: valga)
-  # ruut::qgis_algorithm_search_by_word(str = "extract")
-  algorithm <- "native:extractbylocation"
-  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-  result <- qgisprocess::qgis_run_algorithm(
-    algorithm = algorithm,
-    INPUT = 'postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"maaamet\".\"epk2t\" (geometry)',
-    INTERSECT = sprintf('postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'ogc_fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"xxx_artikkel_210127\".\"%s_piir\" (geometry)', obj),
-    OUTPUT = qgisprocess::qgis_tmp_vector(),
-    PREDICATE = c(0, 1),
-    .quiet = TRUE
-  )
-  result
-}
-# create_pk_epk2t(obj = objektid[i])

gpkg/01_piirkonnale_ruudustike_lisamine.R

@@ -17,6 +17,10 @@ piirkonnale_ruudustike_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "
     return()
   }
   cat(sprintf("\nAlgparameetrid: objekti nimi %s ja GPKG faili kataloog %s\n", obj, gpkg_home))
+  postgres <- sprintf(
+    "postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\'",
+    conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password
+  )
   dsn <- sprintf("%s/%s.gpkg", gpkg_home, obj)
   input_layer_name <- "piir"
   input_layer <- sprintf("%s|layername=%s", dsn, input_layer_name)
@@ -77,9 +81,8 @@ piirkonnale_ruudustike_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "
     conf <- ruut::get_config()
     pg <- ruut::construct_ogr2ogr_PG_connect_str(conf = conf)
     input <- sprintf(
-      'postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"%s\".\"%s\" (geometry)',
-      conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password,
-      "maaamet", ruut
+      '%s table=\"%s\".\"%s\" (geometry)',
+      postgres, "maaamet", ruut
     )
     # ruut::qgis_algorithm_search_by_word(str = "extract")
     algorithm <- "native:extractbylocation"
@@ -107,9 +110,8 @@ piirkonnale_ruudustike_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "
     conf <- ruut::get_config()
     # pg <- ruut::construct_ogr2ogr_PG_connect_str(conf = conf)
     input <- sprintf(
-      'postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"%s\".\"%s\" (geometry)',
-      conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password,
-      "maaamet", ruut
+      '%s table=\"%s\".\"%s\" (geometry)',
+      postgres, "maaamet", ruut
     )
     # ruut::qgis_algorithm_search_by_word(str = "extract")
     algorithm <- "native:extractbylocation"

gpkg/02_piirkonnale_hoonete_lisamine.R → gpkg/02_piirkonnale_polygoonide_lisamine.R

@@ -1,6 +1,6 @@
-#' Piirkonna hoonete lisamine
+#' Piirkonna polügoonide lisamine
 #'
-#' Etteantud piirkonna geomeetrilise piirjoone ('piir') järele leitakse selles piirkonnas ja piirkonna piiriga piirnevad hooned ().
+#' Etteantud piirkonna geomeetrilise piirjoone ('piir') järele leitakse selles piirkonnas ja piirkonna piiriga piirnevad polügoonid (). Osasid polügoone on lõigatud piiriga.
 #'
 #' @param obj str Objekti nimi.
 #' @param pk Piirkonna geomeetriline joon.
@@ -10,7 +10,7 @@
 #' \dontrun{
 #'
 #' }
-piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp") {
+piirkonnale_polygoonide_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp") {
   if (is.null(pk) || !sf::st_is_valid(pk)) {
     cat("\nPalun kontrolli geomeetrilise kujundi õigsust.\n")
     return()
@@ -20,6 +20,10 @@ piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tm
     return()
   }
   cat(sprintf("\nAlgparameetrid: objekti nimi %s ja GPKG faili kataloog %s\n", obj, gpkg_home))
+  postgres <- sprintf(
+    "postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\'",
+    conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password
+  )
   dsn <- sprintf("%s/%s.gpkg", gpkg_home, obj)
   input_layer_name <- "piir"
   input_layer <- sprintf("%s|layername=%s", dsn, input_layer_name)
@@ -33,17 +37,15 @@ piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tm
   j <- 1
   for (j in 1:nrow(andmed.df)) {
     output_layer_name <- as.character(andmed.df$table[j])
-    input <- sprintf(
-      'postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"%s\".\"%s\" (geometry)',
-      conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password,
-      andmed.df$schema[j], andmed.df$table[j]
-    )
     # ruut::qgis_algorithm_search_by_word(str = "extract")
     algorithm <- "native:extractbylocation"
     # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
     result <- qgisprocess::qgis_run_algorithm(
       algorithm = algorithm,
-      INPUT = input,
+      INPUT = sprintf(
+        '%s table=\"%s\".\"%s\" (geometry)',
+        postgres, andmed.df$schema[j], andmed.df$table[j]
+      ),
       INTERSECT = input_layer,
       OUTPUT = tmp_gpkg_file,
       PREDICATE = c(0) # c(0, 1)
@@ -57,8 +59,6 @@ piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tm
   ## -------------- piiri -30 meetrise puhvri sisse jäävad polügoonid -------------
   ## --------------------------------- algandmed ---------------------------------
   andmed.df <- data.frame("schema" = character(0), "table" = character(0))
-  andmed.df <- rbind(andmed.df, data.frame("schema" = "osm_shp", "table" = "landuse_a"))
-  andmed.df <- rbind(andmed.df, data.frame("schema" = "osm_shp", "table" = "water_a"))
   # andmed.df <- rbind(andmed.df, data.frame("schema" = "maaamet", "table" = "aadressandmed")) # POINT
   andmed.df <- rbind(andmed.df, data.frame("schema" = "maaamet", "table" = "asustusyksus"))
   andmed.df <- rbind(andmed.df, data.frame("schema" = "maaamet", "table" = "shp_katastriyksus"))
@@ -71,7 +71,10 @@ piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tm
     DISSOLVE = 0,
     DISTANCE = -30,
     END_CAP_STYLE = 2,
-    INPUT = "/data/gpkg/artiklid/artikkel_210127_valga_matsalu_lahemaa/valga.gpkg|layername=piir",
+    INPUT = sprintf(
+      "%s|layername=piir",
+      dsn
+    ),
     JOIN_STYLE = 2,
     MITER_LIMIT = 2,
     OUTPUT = tmp_gpkg_file,
@@ -86,9 +89,8 @@ piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tm
   for (j in 1:nrow(andmed.df)) {
     output_layer_name <- as.character(andmed.df$table[j])
     input <- sprintf(
-      'postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"%s\".\"%s\" (geometry)',
-      conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password,
-      andmed.df$schema[j], andmed.df$table[j]
+      '%s table=\"%s\".\"%s\" (geometry)',
+      postgres, andmed.df$schema[j], andmed.df$table[j]
     )
     # ruut::qgis_algorithm_search_by_word(str = "extract")
     algorithm <- "native:extractbylocation"
@@ -115,9 +117,8 @@ piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tm
   for (j in 1:nrow(andmed.df)) {
     output_layer_name <- as.character(andmed.df$table[j])
     input <- sprintf(
-      'postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"%s\".\"%s\" (geometry)',
-      conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password,
-      andmed.df$schema[j], andmed.df$table[j]
+      '%s table=\"%s\".\"%s\" (geometry)',
+      postgres, andmed.df$schema[j], andmed.df$table[j]
     )
     # ruut::qgis_algorithm_search_by_word(str = "intersect")
     algorithm <- "native:intersection"
@@ -127,8 +128,8 @@ piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tm
       INPUT = input,
       INPUT_FIELDS = "",
       OVERLAY = sprintf(
-        "/data/gpkg/artiklid/artikkel_210127_valga_matsalu_lahemaa/%s.gpkg|layername=piir",
-        obj
+        "%s|layername=piir",
+        dsn
       ),
       OVERLAY_FIELDS = "",
       OVERLAY_FIELDS_PREFIX = "",
@@ -141,44 +142,8 @@ piirkonnale_hoonete_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tm
   }
 
 
-
-
-
-  # ## ------------ andmed, mis jäävad piirikasti sisse ----------------
-  # ## ------------------------- algandmed -----------------------------
-  # andmed.df <- data.frame("schema" = character(0), "table" = character(0))
-  # # andmed.df <- rbind(andmed.df, data.frame("schema" = "osm_shp", "table" = "buildings_a"))
-  # # andmed.df <- rbind(andmed.df, data.frame("schema" = "osm_shp", "table" = "landuse_a"))
-  # # andmed.df <- rbind(andmed.df, data.frame("schema" = "osm_shp", "table" = "water_a"))
-  # # andmed.df <- rbind(andmed.df, data.frame("schema" = "maaamet", "table" = "aadressandmed"))
-  # # andmed.df <- rbind(andmed.df, data.frame("schema" = "maaamet", "table" = "asustusyksus"))
-  # # andmed.df <- rbind(andmed.df, data.frame("schema" = "maaamet", "table" = "shp_katastriyksus"))
-  # j <- 1
-  # for (j in 1:nrow(andmed.df)) {
-  #   output_layer_name <- andmed.df$table[j]
-  #   input <- sprintf(
-  #     'postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"%s\".\"%s\" (geometry)',
-  #     conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password,
-  #     andmed.df$schema[j], andmed.df$table[j]
-  #   )
-  #   # ruut::qgis_algorithm_search_by_word(str = "extract")
-  #   algorithm <- "native:extractbylocation"
-  #   # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-  #   result <- qgisprocess::qgis_run_algorithm(
-  #     algorithm = algorithm,
-  #     INPUT = input,
-  #     INTERSECT = sprintf("%s|layername=%s", dsn, "boundarybox_3301"),
-  #     OUTPUT = tmp_gpkg_file,
-  #     PREDICATE = c(0, 1)
-  #     # .quiet = TRUE
-  #   )
-  #   result
-  #   assign(as.character(andmed.df$table[j]), sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT")))
-  #   system(sprintf("ogr2ogr -f GPKG -overwrite  %s %s -nln %s -t_srs \"EPSG:3301\"", dsn, tmp_gpkg_file, output_layer_name))
-  # }
-
   ## ---------------------- vaata layer'id ----------------------
   # Vaata layer'eid
   sf::st_layers(dsn = dsn)
 }
-# piirkonnale_hoonete_lisamine(obj = NULL, pk = NULL, gpkg_home = "/tmp")
+# piirkonnale_polygoonide_lisamine(obj = NULL, pk = NULL, gpkg_home = "/tmp")