Muudetud 'construct_to_gpkg_output_file_str'.

R/construct_to_gpkg_output_file_str.R

@@ -1,9 +1,7 @@
 #' 'qgisprocess' funktsiooonides GPKG INPUT/OUTPUT konstrueerimine
 #'
 #' See funktsioon konstrueerib 'qgisprocess' funktsioonides enamasti INPUT/OUTPUT/OVERLAY parameetri argumentide  kasutatava fraasi, mis on vajalik andmebaasiga ühendamisegs.
-#' @param gpkg_home Kataloog kuhu gpkg failid salvestatakse. Algväärtus "/tmp".
-#' @param gpkg_file Faili nimi ilma laiendita '*.gpkg'. Laiend lisatakse automaatselt. Algväärtus "/tmp".
-#' @param gpkg_table Geomeetrilise kihi nimetuse failis. Algväärtus "layer_one".
+#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
 #' @return A string "ogr:dbname='%s/%s.gpkg' table=\"%s\" (geometry)".
 #' @seealso [ruut::construct_ogr2ogr_PG_connect_str()], [ruut::construct_qgis_output_result_to_beter_format()]
 #' @keywords gpkg
@@ -12,11 +10,12 @@
 #'
 #' \dontrun{
 #'
-#' construct_to_gpkg_output_file_str()
+#' conf <- ruut::get_config()
+#' construct_to_gpkg_output_file_str(conf = conf)
 #' }
-construct_to_gpkg_output_file_str <- function(gpkg_home = "/tmp", gpkg_file = "test", gpkg_table = "layer_one") {
-  dsn <- sprintf("%s/%s.gpkg", gpkg_home, gpkg_file)
+construct_to_gpkg_output_file_str <- function(conf = conf) {
+  dsn <- sprintf("%s/%s.gpkg", conf$gpkg_home, conf$gpkg_file)
   ogr <- sprintf("ogr:dbname='%s'", dsn)
-  output <- sprintf('%s table=\"%s\" (geometry)', ogr, gpkg_table)
+  output <- sprintf('%s table=\"%s\" (geometry)', ogr, conf$gpkg_table)
   output
 }

inst/extdata/config.json

@@ -11,7 +11,10 @@
   "geometry_column":"geometry",
   "primary_key":"fid",
   "gtype":0,
-  "a_srs":"EPSG:4326",
-  "t_srs":"EPSG:4326",
-  "s_srs":"EPSG:4326"
+  "a_srs":"EPSG:3301",
+  "t_srs":"EPSG:3301",
+  "s_srs":"EPSG:4326",
+  "gpkg_home":"/data/gpkg",
+  "gpkg_file":"tmp_gpkg",
+  "gpkg_table":"test_layer"
 }

man/construct_to_gpkg_output_file_str.Rd

@@ -4,18 +4,10 @@
 \alias{construct_to_gpkg_output_file_str}
 \title{'qgisprocess' funktsiooonides GPKG INPUT/OUTPUT konstrueerimine}
 \usage{
-construct_to_gpkg_output_file_str(
-  gpkg_home = "/tmp",
-  gpkg_file = "test",
-  gpkg_table = "layer_one"
-)
+construct_to_gpkg_output_file_str(conf = conf)
 }
 \arguments{
-\item{gpkg_home}{Kataloog kuhu gpkg failid salvestatakse. Algväärtus "/tmp".}
-
-\item{gpkg_file}{Faili nimi ilma laiendita '*.gpkg'. Laiend lisatakse automaatselt. Algväärtus "/tmp".}
-
-\item{gpkg_table}{Geomeetrilise kihi nimetuse failis. Algväärtus "layer_one".}
+\item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
 }
 \value{
 A string "ogr:dbname='\%s/\%s.gpkg' table=\"\%s\" (geometry)".
@@ -27,7 +19,8 @@ See funktsioon konstrueerib 'qgisprocess' funktsioonides enamasti INPUT/OUTPUT/O
 
 \dontrun{
 
-construct_to_gpkg_output_file_str()
+conf <- ruut::get_config()
+construct_to_gpkg_output_file_str(conf = conf)
 }
 }
 \seealso{