|
|
@@ -0,0 +1,22 @@
|
|
|
+#' '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".
|
|
|
+#' @return A string '"PG:dbname='%s' host=%s port=%d user='%s' password='%s' sslmode=%s"'.
|
|
|
+#' @seealso [ruut::construct_ogr2ogr_PG_connect_str()], [ruut::construct_qgis_output_result_to_beter_format()]
|
|
|
+#' @keywords gpkg
|
|
|
+#' @export
|
|
|
+#' @examples
|
|
|
+#'
|
|
|
+#' \dontrun{
|
|
|
+#'
|
|
|
+#' construct_to_gpkg_output_file_str()
|
|
|
+#' }
|
|
|
+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)
|
|
|
+ ogr <- sprintf("ogr:dbname='%s'", dsn)
|
|
|
+ output <- sprintf('%s table=\"%s\" (geometry)', ogr, gpkg_table)
|
|
|
+ output
|
|
|
+}
|