Minu teed 'riigiteed' ebaoluliste väljade eemaldaine.

R/minu_teed_riigiteed.R

@@ -84,11 +84,21 @@ minu_teed_riigiteed <- function(conf = NULL) {
   system(cmd)
   cat(sprintf("\n-------------\nLoodi andmebaas '%s'.\n", output))
 
-  ## ------------------ 3.2 Copy temp gpkg file to postgis ---------------------
+  ## ------------------- 3.2 Eemaldame ebavajalikud veerud ---------------------
+  # ruut::qgis_algorithm_search_by_word("retain")
+  algorithm <- "native:retainfields"
+  # ruut::qgis_show_help(algorithm = algorithm)
+  input <- vars$tmp_gpkg_file_input_4
+  output <- vars$tmp_gpkg_file_output_5
+  cmd <- sprintf("qgis_process run %s  --FIELDS='tyyp' --FIELDS='tyyp_t' --FIELDS='tee' --FIELDS='nimetus' --INPUT='%s' --OUTPUT='%s' ", algorithm, input, output)
+  system(cmd)
+  cat(sprintf("\n-------------\nLoodi andmebaas '%s'.\n", output))
+
+  ## ------------------ 3.3 Copy temp gpkg file to postgis ---------------------
   conf$schema <- "minu_teed"
   conf$table <- "teedevork_riigiteed_p"
   PG <- ruut::construct_ogr2ogr_PG_connect_str(conf = conf)
-  cmd <- sprintf("ogr2ogr -progress --config PG_USE_COPY YES -f PostgreSQL %s -lco DIM=2 %s %s -overwrite -nlt %s -lco GEOMETRY_NAME=geom -lco FID=fid -nln %s.%s -nlt PROMOTE_TO_MULTI", PG, vars$tmp_gpkg_file, vars$layer_4, "POINT", conf$schema, conf$table)
+  cmd <- sprintf("ogr2ogr -progress --config PG_USE_COPY YES -f PostgreSQL %s -lco DIM=2 %s %s -overwrite -nlt %s -lco GEOMETRY_NAME=geom -lco FID=id -nln %s.%s -nlt PROMOTE_TO_MULTI", PG, vars$tmp_gpkg_file, vars$layer_5, "POINT", conf$schema, conf$table)
   system(cmd)
   cat(sprintf("\n-------------\nLoodi andmebaas '%s'.\n", conf$table))
 }

man/minu_teed_riigiteed.Rd

@@ -1,28 +1,41 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/minu_teed_riigiteed.R
+% Please edit documentation in R/minu_teed_riigiteed.R, R/minu_teed_teedevork.R
 \name{minu_teed_riigiteed}
 \alias{minu_teed_riigiteed}
 \title{Riigiteedevõrgu loomine}
 \usage{
+minu_teed_riigiteed(conf = NULL)
+
 minu_teed_riigiteed(conf = NULL)
 }
 \arguments{
 \item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
 }
 \value{
+No output.
+
 No output.
 }
 \description{
+ETAK (Eesti topograafia andmekogu) \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Eesti-topograafia-andmekogu/Laadi-ETAK-andmed-alla-p609.html} andmete põhjal
+
 ETAK (Eesti topograafia andmekogu) \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Eesti-topograafia-andmekogu/Laadi-ETAK-andmed-alla-p609.html} andmete põhjal
 }
 \examples{
 \dontrun{
 
+conf <- ruut::get_config()
+minu_teed_riigiteed(conf = conf)
+}
+\dontrun{
+
 conf <- ruut::get_config()
 minu_teed_riigiteed(conf = conf)
 }
 }
 \seealso{
+\code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}, \code{\link[=minu_teed_riigiteed]{minu_teed_riigiteed()}}, \code{\link[=minu_teed_muud_teed]{minu_teed_muud_teed()}}, \code{\link[=minu_teed_eesti]{minu_teed_eesti()}}
+
 \code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}, \code{\link[=minu_teed_riigiteed]{minu_teed_riigiteed()}}, \code{\link[=minu_teed_muud_teed]{minu_teed_muud_teed()}}, \code{\link[=minu_teed_eesti]{minu_teed_eesti()}}
 }
 \keyword{postgis}