Muudetud funktsiooni nime. Uus nimi 'minu_teed_loomine'.

NAMESPACE

@@ -11,9 +11,9 @@ export(maaamet_kaardiruudud)
 export(maaamet_kataster)
 export(maaamet_mullakaart)
 export(maaamet_ortofotod)
+export(minu_teed_loomine)
 export(osm_shp)
 export(teeregister_teed)
 export(teeregister_wfs)
-export(teeregister_wfs_muutmine)
 importFrom(magrittr,"%>%")
 importFrom(rlang,.data)

R/teeregister_wfs_muutmine.R → R/minu_teed_loomine.R

@@ -1,4 +1,4 @@
-#' Teeregistri WFS kihitidest uute andmete moodustamine
+#' Teeregistri WFS ja maaameti oma teeandmete moodustamine
 #'
 #' 1. Põhi-, kõrval ja tugimaanteedest ning rambid moodustatakse uus andmebaas 'riigiteedevork'.
 #' Eesti avaandmete \url{https://avaandmed.eesti.ee/datasets?emsId=35} teabevärava kaudu teederegistri WFS (Web Feature Service) andmete eksportimine postgisandmebaasi. WFS andmestiku kirjeldus: \url{https://teeregister-api.mnt.ee/teenus/wfs?request=GetCapabilities&service=WFS}
@@ -12,9 +12,9 @@
 #' \dontrun{
 #'
 #' conf <- ruut::get_config()
-#' teeregister_wfs_muutmine(conf = conf)
+#' minu_teed_loomine(conf = conf)
 #' }
-teeregister_wfs_muutmine <- function(conf = NULL) {
+minu_teed_loomine <- function(conf = NULL) {
   ## ------------- muutujad ja teisendused ---------------
   if (is.null(conf)) {
     conf <- ruut::get_config()
@@ -54,8 +54,11 @@ teeregister_wfs_muutmine <- function(conf = NULL) {
       conf = conf, geometry_type = "MultiLineString", srid = 3301,
       checkPrimaryKeyUnicity = TRUE, key = "id", geometry_field = "geometry"
     )
+    conf$schema <- "minu_teed"
+    # New schema
+    ruut::db_create_new_schema(conf = conf)
     conf$table <- "riigiteedevork"
-    output <- ruut::construct_to_gpkg_output_postgres_str(conf = conf, geometry_field = "geometry", geometry_type = "MultiLineString", srid = 3301, checkPrimaryKeyUnicity = FALSE, key = "fid")
+    output <- ruut::construct_to_gpkg_output_postgres_str(conf = conf, geometry_field = "geom", geometry_type = "MultiLineString", srid = 3301, checkPrimaryKeyUnicity = FALSE, key = "fid")
     cmd <- sprintf(
       "qgis_process run native:mergevectorlayers --CRS='epsg:3301' --LAYERS='%s' --LAYERS='%s' --LAYERS='%s' --LAYERS='%s' --OUTPUT='%s' ",
       layer_1, layer_2, layer_3, layer_4, output

man/teeregister_wfs_muutmine.Rd → man/minu_teed_loomine.Rd

@@ -1,10 +1,10 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/teeregister_wfs_muutmine.R
-\name{teeregister_wfs_muutmine}
-\alias{teeregister_wfs_muutmine}
-\title{Teeregistri WFS kihitidest uute andmete moodustamine}
+% Please edit documentation in R/minu_teed_loomine.R
+\name{minu_teed_loomine}
+\alias{minu_teed_loomine}
+\title{Teeregistri WFS ja maaameti oma teeandmete moodustamine}
 \usage{
-teeregister_wfs_muutmine(conf = NULL)
+minu_teed_loomine(conf = NULL)
 }
 \arguments{
 \item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
@@ -22,7 +22,7 @@ Eesti avaandmete \url{https://avaandmed.eesti.ee/datasets?emsId=35} teabevärava
 \dontrun{
 
 conf <- ruut::get_config()
-teeregister_wfs_muutmine(conf = conf)
+minu_teed_loomine(conf = conf)
 }
 }
 \seealso{