Muudetud failide ja funktsioonide nimesid.

NAMESPACE

@@ -26,8 +26,8 @@ export(gpkg_sellest_alustame_gpkg_loomist)
 export(gpkg_teisendame_jooni)
 export(gpkg_teisendame_polygoone)
 export(gpkg_teisendame_punkte)
-export(pk_polygoonide_lisamine)
-export(pk_ruudustike_lisamine)
+export(pk_lisame_polygoonid)
+export(pk_lisame_ruudustikud)
 export(pk_sellest_alustame_db_loomist)
 export(pk_teisendame_polygoone)
 export(qgis_algorithm_search_by_word)

R/pk_polygoonide_lisamine.R → R/pk_lisame_polygoonid.R

@@ -5,19 +5,19 @@
 #' @param obj str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja lisada.
 #' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
 #' @return Uute andmebaasi kihtide 'piir_...' ja 'bb_...' loomine.
-#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::pk_ruudustike_lisamine()] ,[ruut::pk_polygoonide_lisamine()],[ruut::pk_sellest_alustame_db_loomist()],[ruut::gpkg_piirkonnale_joonte_lisamine()],[ruut::gpkg_piirkonnale_punktide_lisamine()],[ruut::gpkg_piirkonnale_punktide_lisamine()],[ruut::pk_teisendame_polygoone()],[ruut::gpkg_teisendame_jooni()],[ruut::gpkg_teisendame_punkte()]
+#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::pk_sellest_alustame_db_loomist()],[ruut::pk_lisame_ruudustikud()] ,[ruut::pk_lisame_polygoonid()],[ruut::pk_lisame_jooned()],[ruut::pk_lisame_punktid()],[ruut::pk_lisame_piirkonnale_punktid()],[ruut::pk_teisendame_polygoone()],[ruut::pk_teisendame_jooni()],[ruut::pk_teisendame_punkte()]
 #' @keywords postgis, boundary box, EPSG:3301
 #' @export
 #' @examples
 #' \dontrun{
 #'
 #' obj <- "marja"
-#' pk_polygoonide_lisamine(obj = obj, conf = NULL)
+#' pk_lisame_polygoonid(obj = obj, conf = NULL)
 #'
 #' # Layers list.
 #' ruut::db_schema_tablenames(conf = conf)
 #' }
-pk_polygoonide_lisamine <- function(obj = NULL, conf = NULL) {
+pk_lisame_polygoonid <- function(obj = NULL, conf = NULL) {
   obj <- gsub(" ", "_", tolower(obj))
   ## Konfiguratsiooni muutujale väärtuste omistamine, kui seda pole antud.
   if (is.null(conf)) {
@@ -152,6 +152,7 @@ pk_polygoonide_lisamine <- function(obj = NULL, conf = NULL) {
     }
   }
   ## Layers list
+  conf$schema <- obj
   ruut::db_schema_tablenames(conf = conf)
   sf::st_layers(dsn = tmp_gpkg_file)
 }

R/pk_ruudustike_lisamine.R → R/pk_lisame_ruudustikud.R

@@ -5,19 +5,19 @@
 #' @param obj str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja lisada.
 #' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
 #' @return Uute andmebaasi kihtide 'piir_...' ja 'bb_...' loomine.
-#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::pk_ruudustike_lisamine()] ,[ruut::pk_polygoonide_lisamine()],[ruut::pk_sellest_alustame_db_loomist()],[ruut::gpkg_piirkonnale_joonte_lisamine()],[ruut::gpkg_piirkonnale_punktide_lisamine()],[ruut::gpkg_piirkonnale_punktide_lisamine()],[ruut::gpkg_teisendame_polygoone()],[ruut::gpkg_teisendame_jooni()],[ruut::gpkg_teisendame_punkte()]
+#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::pk_sellest_alustame_db_loomist()],[ruut::pk_lisame_ruudustikud()] ,[ruut::pk_lisame_polygoonid()],[ruut::pk_lisame_jooned()],[ruut::pk_lisame_punktid()],[ruut::pk_lisame_piirkonnale_punktid()],[ruut::pk_teisendame_polygoone()],[ruut::pk_teisendame_jooni()],[ruut::pk_teisendame_punkte()]
 #' @keywords postgis, boundary box, EPSG:3301
 #' @export
 #' @examples
 #' \dontrun{
 #'
 #' obj <- "marja"
-#' pk_ruudustike_lisamine(obj = obj, conf = NULL)
+#' pk_lisame_ruudustikud(obj = obj, conf = NULL)
 #'
 #' # Layers list.
 #' ruut::db_schema_tablenames(conf = conf)
 #' }
-pk_ruudustike_lisamine <- function(obj = NULL, conf = NULL) {
+pk_lisame_ruudustikud <- function(obj = NULL, conf = NULL) {
   obj <- gsub(" ", "_", tolower(obj))
   ## Konfiguratsiooni muutujale väärtuste omistamine, kui seda pole antud.
   if (is.null(conf)) {
@@ -72,6 +72,7 @@ pk_ruudustike_lisamine <- function(obj = NULL, conf = NULL) {
     }
   }
   ## Layers list
+  conf$schema <- obj
   ruut::db_schema_tablenames(conf = conf)
   sf::st_layers(dsn = tmp_gpkg_file)
 }

R/pk_sellest_alustame_db_loomist.R

@@ -8,8 +8,8 @@
 #' @param obj str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja edaspidi lisada.
 #' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
 #' @return Andmebaasi loomine koos kihtidega 'piir' ja 'bb' (boundary box, piirikast).
-#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::gpkg_piirkonnale_ruudustike_lisamine()] ,[ruut::gpkg_piirkonnale_polygoonide_lisamine()],[ruut::pk_sellest_alustame_db_loomist()],[ruut::gpkg_piirkonnale_joonte_lisamine()],[ruut::gpkg_piirkonnale_punktide_lisamine()]
-#' @keywords GPKG, boundary box, EPSG:3301
+#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::pk_sellest_alustame_db_loomist()],[ruut::pk_lisame_ruudustikud()] ,[ruut::pk_lisame_polygoonid()],[ruut::pk_lisame_jooned()],[ruut::pk_lisame_punktid()],[ruut::pk_lisame_piirkonnale_punktid()],[ruut::pk_teisendame_polygoone()],[ruut::pk_teisendame_jooni()],[ruut::pk_teisendame_punkte()]
+#' @keywords postgis, boundary box, EPSG:3301
 #' @export
 #' @examples
 #' \dontrun{
@@ -35,6 +35,7 @@ pk_sellest_alustame_db_loomist <- function(pk = NULL, obj = NULL, conf = NULL) {
     cat("\nPalun kontrolli geomeetrilise kujundi \u00F%igsust.\n")
     return(NULL)
   }
+  attributes(pk)$names <- attributes(pk)$sf_column <- "geom"
   if (is.null(obj)) {
     cat("\nPalun sisesta objekti nimi.\n")
     return(NULL)
@@ -43,7 +44,6 @@ pk_sellest_alustame_db_loomist <- function(pk = NULL, obj = NULL, conf = NULL) {
   ## Konfiguratsiooni muutujale väärtuste omistamine, kui seda pole antud.
   if (is.null(conf)) {
     conf <- ruut::get_config()
-    conf$schema <- "data"
     conf$table <- obj
   }
   ## ------------- muutujad ja teisendused ---------------
@@ -122,6 +122,7 @@ pk_sellest_alustame_db_loomist <- function(pk = NULL, obj = NULL, conf = NULL) {
   cat(sprintf("\n%s\n", cmd))
   system(cmd)
   # Layers list
+  conf$schema <- obj
   ruut::db_schema_tablenames(conf = conf)
   sf::st_layers(dsn = tmp_gpkg_file)
 }

R/pk_teisendame_polygoone.R

@@ -5,7 +5,7 @@
 #' @param obj str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja lisada.
 #' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
 #' @return Uute andmebaasi kihtide 'piir_...' ja 'bb_...' loomine.
-#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::pk_ruudustike_lisamine()] ,[ruut::pk_polygoonide_lisamine()],[ruut::pk_sellest_alustame_db_loomist()],[ruut::gpkg_piirkonnale_joonte_lisamine()],[ruut::gpkg_piirkonnale_punktide_lisamine()],[ruut::gpkg_piirkonnale_punktide_lisamine()],[ruut::pk_teisendame_polygoone()],[ruut::gpkg_teisendame_jooni()],[ruut::gpkg_teisendame_punkte()]
+#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::pk_sellest_alustame_db_loomist()],[ruut::pk_lisame_ruudustikud()] ,[ruut::pk_lisame_polygoonid()],[ruut::pk_lisame_jooned()],[ruut::pk_lisame_punktid()],[ruut::pk_lisame_piirkonnale_punktid()],[ruut::pk_teisendame_polygoone()],[ruut::pk_teisendame_jooni()],[ruut::pk_teisendame_punkte()]
 #' @keywords postgis, boundary box, EPSG:3301
 #' @export
 #' @examples
@@ -105,6 +105,7 @@ pk_teisendame_polygoone <- function(obj = NULL, conf = NULL) {
     }
   }
   ## Layers list
+  conf$schema <- obj
   ruut::db_schema_tablenames(conf = conf)
   sf::st_layers(dsn = tmp_gpkg_file)
 }

man/pk_polygoonide_lisamine.Rd → man/pk_lisame_polygoonid.Rd

@@ -1,10 +1,10 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/pk_polygoonide_lisamine.R
-\name{pk_polygoonide_lisamine}
-\alias{pk_polygoonide_lisamine}
+% Please edit documentation in R/pk_lisame_polygoonid.R
+\name{pk_lisame_polygoonid}
+\alias{pk_lisame_polygoonid}
 \title{Piirkonnale andmebaasides olevate polügoonide lisamine}
 \usage{
-pk_polygoonide_lisamine(obj = NULL, conf = NULL)
+pk_lisame_polygoonid(obj = NULL, conf = NULL)
 }
 \arguments{
 \item{obj}{str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja lisada.}
@@ -21,14 +21,14 @@ Etteantud piirkonna geomeetrilise piirjoone ('piir') ja selle joone piirikasti (
 \dontrun{
 
 obj <- "marja"
-pk_polygoonide_lisamine(obj = obj, conf = NULL)
+pk_lisame_polygoonid(obj = obj, conf = NULL)
 
 # Layers list.
 ruut::db_schema_tablenames(conf = conf)
 }
 }
 \seealso{
-\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=pk_ruudustike_lisamine]{pk_ruudustike_lisamine()}} ,\code{\link[=pk_polygoonide_lisamine]{pk_polygoonide_lisamine()}},\code{\link[=pk_sellest_alustame_db_loomist]{pk_sellest_alustame_db_loomist()}},\code{\link[=gpkg_piirkonnale_joonte_lisamine]{gpkg_piirkonnale_joonte_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}},\code{\link[=pk_teisendame_polygoone]{pk_teisendame_polygoone()}},\code{\link[=gpkg_teisendame_jooni]{gpkg_teisendame_jooni()}},\code{\link[=gpkg_teisendame_punkte]{gpkg_teisendame_punkte()}}
+\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=pk_sellest_alustame_db_loomist]{pk_sellest_alustame_db_loomist()}},\code{\link[=pk_lisame_ruudustikud]{pk_lisame_ruudustikud()}} ,\code{\link[=pk_lisame_polygoonid]{pk_lisame_polygoonid()}},\code{\link[=pk_lisame_jooned]{pk_lisame_jooned()}},\code{\link[=pk_lisame_punktid]{pk_lisame_punktid()}},\code{\link[=pk_lisame_piirkonnale_punktid]{pk_lisame_piirkonnale_punktid()}},\code{\link[=pk_teisendame_polygoone]{pk_teisendame_polygoone()}},\code{\link[=pk_teisendame_jooni]{pk_teisendame_jooni()}},\code{\link[=pk_teisendame_punkte]{pk_teisendame_punkte()}}
 }
 \keyword{EPSG:3301}
 \keyword{boundary}

man/pk_ruudustike_lisamine.Rd → man/pk_lisame_ruudustikud.Rd

@@ -1,10 +1,10 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/pk_ruudustike_lisamine.R
-\name{pk_ruudustike_lisamine}
-\alias{pk_ruudustike_lisamine}
+% Please edit documentation in R/pk_lisame_ruudustikud.R
+\name{pk_lisame_ruudustikud}
+\alias{pk_lisame_ruudustikud}
 \title{Piirkonna ruudustike leidmine ja lisamine}
 \usage{
-pk_ruudustike_lisamine(obj = NULL, conf = NULL)
+pk_lisame_ruudustikud(obj = NULL, conf = NULL)
 }
 \arguments{
 \item{obj}{str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja lisada.}
@@ -21,14 +21,14 @@ Etteantud piirkonna geomeetrilise piirjoone ('piir') ja selle joone piirikasti (
 \dontrun{
 
 obj <- "marja"
-pk_ruudustike_lisamine(obj = obj, conf = NULL)
+pk_lisame_ruudustikud(obj = obj, conf = NULL)
 
 # Layers list.
 ruut::db_schema_tablenames(conf = conf)
 }
 }
 \seealso{
-\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=pk_ruudustike_lisamine]{pk_ruudustike_lisamine()}} ,\code{\link[=pk_polygoonide_lisamine]{pk_polygoonide_lisamine()}},\code{\link[=pk_sellest_alustame_db_loomist]{pk_sellest_alustame_db_loomist()}},\code{\link[=gpkg_piirkonnale_joonte_lisamine]{gpkg_piirkonnale_joonte_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}},\code{\link[=gpkg_teisendame_polygoone]{gpkg_teisendame_polygoone()}},\code{\link[=gpkg_teisendame_jooni]{gpkg_teisendame_jooni()}},\code{\link[=gpkg_teisendame_punkte]{gpkg_teisendame_punkte()}}
+\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=pk_sellest_alustame_db_loomist]{pk_sellest_alustame_db_loomist()}},\code{\link[=pk_lisame_ruudustikud]{pk_lisame_ruudustikud()}} ,\code{\link[=pk_lisame_polygoonid]{pk_lisame_polygoonid()}},\code{\link[=pk_lisame_jooned]{pk_lisame_jooned()}},\code{\link[=pk_lisame_punktid]{pk_lisame_punktid()}},\code{\link[=pk_lisame_piirkonnale_punktid]{pk_lisame_piirkonnale_punktid()}},\code{\link[=pk_teisendame_polygoone]{pk_teisendame_polygoone()}},\code{\link[=pk_teisendame_jooni]{pk_teisendame_jooni()}},\code{\link[=pk_teisendame_punkte]{pk_teisendame_punkte()}}
 }
 \keyword{EPSG:3301}
 \keyword{boundary}

man/pk_sellest_alustame_db_loomist.Rd

@@ -39,9 +39,9 @@ ruut::db_schema_tablenames(conf = conf)
 }
 }
 \seealso{
-\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=gpkg_piirkonnale_ruudustike_lisamine]{gpkg_piirkonnale_ruudustike_lisamine()}} ,\code{\link[=gpkg_piirkonnale_polygoonide_lisamine]{gpkg_piirkonnale_polygoonide_lisamine()}},\code{\link[=pk_sellest_alustame_db_loomist]{pk_sellest_alustame_db_loomist()}},\code{\link[=gpkg_piirkonnale_joonte_lisamine]{gpkg_piirkonnale_joonte_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}}
+\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=pk_sellest_alustame_db_loomist]{pk_sellest_alustame_db_loomist()}},\code{\link[=pk_lisame_ruudustikud]{pk_lisame_ruudustikud()}} ,\code{\link[=pk_lisame_polygoonid]{pk_lisame_polygoonid()}},\code{\link[=pk_lisame_jooned]{pk_lisame_jooned()}},\code{\link[=pk_lisame_punktid]{pk_lisame_punktid()}},\code{\link[=pk_lisame_piirkonnale_punktid]{pk_lisame_piirkonnale_punktid()}},\code{\link[=pk_teisendame_polygoone]{pk_teisendame_polygoone()}},\code{\link[=pk_teisendame_jooni]{pk_teisendame_jooni()}},\code{\link[=pk_teisendame_punkte]{pk_teisendame_punkte()}}
 }
 \keyword{EPSG:3301}
-\keyword{GPKG,}
 \keyword{boundary}
 \keyword{box,}
+\keyword{postgis,}

man/pk_teisendame_polygoone.Rd

@@ -28,7 +28,7 @@ ruut::db_schema_tablenames(conf = conf)
 }
 }
 \seealso{
-\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=pk_ruudustike_lisamine]{pk_ruudustike_lisamine()}} ,\code{\link[=pk_polygoonide_lisamine]{pk_polygoonide_lisamine()}},\code{\link[=pk_sellest_alustame_db_loomist]{pk_sellest_alustame_db_loomist()}},\code{\link[=gpkg_piirkonnale_joonte_lisamine]{gpkg_piirkonnale_joonte_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}},\code{\link[=pk_teisendame_polygoone]{pk_teisendame_polygoone()}},\code{\link[=gpkg_teisendame_jooni]{gpkg_teisendame_jooni()}},\code{\link[=gpkg_teisendame_punkte]{gpkg_teisendame_punkte()}}
+\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=pk_sellest_alustame_db_loomist]{pk_sellest_alustame_db_loomist()}},\code{\link[=pk_lisame_ruudustikud]{pk_lisame_ruudustikud()}} ,\code{\link[=pk_lisame_polygoonid]{pk_lisame_polygoonid()}},\code{\link[=pk_lisame_jooned]{pk_lisame_jooned()}},\code{\link[=pk_lisame_punktid]{pk_lisame_punktid()}},\code{\link[=pk_lisame_piirkonnale_punktid]{pk_lisame_piirkonnale_punktid()}},\code{\link[=pk_teisendame_polygoone]{pk_teisendame_polygoone()}},\code{\link[=pk_teisendame_jooni]{pk_teisendame_jooni()}},\code{\link[=pk_teisendame_punkte]{pk_teisendame_punkte()}}
 }
 \keyword{EPSG:3301}
 \keyword{boundary}