Lisatud argument 'obj_only = TRUE' s.o kas andmed leitakse ainult piirkonna jaoks või kogu piirikasti jaoks.

00_algandmed.R

@@ -48,10 +48,10 @@ for (i in 1:length(objektid)) {
 
   sf::st_geometry(pk) %>% plot()
   gpkg_home <- "/data/gpkg/artiklid/artikkel_210127_valga_matsalu_lahemaa"
-  piirkonnale_ruudustike_lisamine(obj = obj, pk = pk, gpkg_home = gpkg_home)
-  piirkonnale_polygoonide_lisamine(obj = obj, pk = pk, gpkg_home = gpkg_home)
-  piirkonnale_punktide_lisamine(obj = obj, pk = pk, gpkg_home = gpkg_home)
-  piirkonnale_joonte_lisamine(obj = obj, pk = pk, gpkg_home = gpkg_home)
+  piirkonnale_ruudustike_lisamine(obj = obj, pk = pk, gpkg_home = gpkg_home, obj_only = TRUE)
+  piirkonnale_polygoonide_lisamine(obj = obj, pk = pk, gpkg_home = gpkg_home, obj_only = TRUE)
+  piirkonnale_punktide_lisamine(obj = obj, pk = pk, gpkg_home = gpkg_home, obj_only = TRUE)
+  piirkonnale_joonte_lisamine(obj = obj, pk = pk, gpkg_home = gpkg_home, obj_only = TRUE)
 }
 
 

gpkg/01_piirkonnale_ruudustike_lisamine.R

@@ -5,9 +5,10 @@
 #' @param obj str Objekti nimi.
 #' @param pk Piirkonna geomeetriline joon.
 #' @param gpkg_home path Salvestatavate GPKG faili asukoht.
+#' @param obj_only TRUE/FALSE Kas geomeetriad leitakse ainult objekti või kogu piirikastiga määratud ala jaoks.
 #'
 #'
-piirkonnale_ruudustike_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp") {
+piirkonnale_ruudustike_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp", obj_only = TRUE) {
   if (is.null(pk) || !sf::st_is_valid(pk)) {
     cat("\nPalun kontrolli geomeetrilise kujundi õigsust.\n")
     return()

gpkg/02_piirkonnale_polygoonide_lisamine.R

@@ -5,12 +5,13 @@
 #' @param obj str Objekti nimi.
 #' @param pk Piirkonna geomeetriline joon.
 #' @param gpkg_home path Salvestatavate GPKG faili asukoht.
+#' @param obj_only TRUE/FALSE Kas geomeetriad leitakse ainult objekti või kogu piirikastiga määratud ala jaoks.
 #'
 #' @examples
 #' \dontrun{
 #'
 #' }
-piirkonnale_polygoonide_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp") {
+piirkonnale_polygoonide_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp", obj_only = TRUE) {
   if (is.null(pk) || !sf::st_is_valid(pk)) {
     cat("\nPalun kontrolli geomeetrilise kujundi õigsust.\n")
     return()

gpkg/03_piirkonnale_punktide_lisamine.R

@@ -5,12 +5,13 @@
 #' @param obj str Objekti nimi.
 #' @param pk Piirkonna geomeetriline joon.
 #' @param gpkg_home path Salvestatavate GPKG faili asukoht.
+#' @param obj_only TRUE/FALSE Kas geomeetriad leitakse ainult objekti või kogu piirikastiga määratud ala jaoks.
 #'
 #' @examples
 #' \dontrun{
 #'
 #' }
-piirkonnale_punktide_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp") {
+piirkonnale_punktide_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp", obj_only = TRUE) {
   if (is.null(pk) || !sf::st_is_valid(pk)) {
     cat("\nPalun kontrolli geomeetrilise kujundi õigsust.\n")
     return()

gpkg/04_piirkonnale_joonte_lisamine.R

@@ -5,12 +5,13 @@
 #' @param obj str Objekti nimi.
 #' @param pk Piirkonna geomeetriline joon.
 #' @param gpkg_home path Salvestatavate GPKG faili asukoht.
+#' @param obj_only TRUE/FALSE Kas geomeetriad leitakse ainult objekti või kogu piirikastiga määratud ala jaoks.
 #'
 #' @examples
 #' \dontrun{
 #'
 #' }
-piirkonnale_joonte_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp") {
+piirkonnale_joonte_lisamine <- function(obj = NULL, pk = NULL, gpkg_home = "/tmp", obj_only = TRUE) {
   if (is.null(pk) || !sf::st_is_valid(pk)) {
     cat("\nPalun kontrolli geomeetrilise kujundi õigsust.\n")
     return()