Lisatud 'construct_qgis_output_result_to_beter_format'.

NAMESPACE

@@ -2,6 +2,7 @@
 
 export(cat_function)
 export(construct_ogr2ogr_PG_connect_str)
+export(construct_qgis_output_result_to_beter_format)
 export(convert_sf2qgis)
 export(copy_gpkg_to_db)
 export(copy_qgis_object_to_db)

R/construct_qgis_output_result_to_beter_format.R

@@ -0,0 +1,41 @@
+#' QGIS-i funktsiooni väljundist uue sisendiks vajaliku fraasi konstrueerimine
+#'
+#' See funktsioon konstrueerib 'QGIS' funktsiooni väljundi logisse tekkiva input parameetrid kujule, mida oleks võimalik kasutada funktsiooni \code{\link[qgisprocess]{qgis_run_algorithm}} argumentidena.
+#'
+#' Näidis:
+#' Processing algorithm…
+#' Algorithm 'Export to PostgreSQL' starting…
+#' Input parameters:
+#' { 'CREATEINDEX' : True, 'DATABASE' : 'Data', 'DROP_STRING_LENGTH' : False, 'ENCODING' : 'UTF-8', 'FORCE_SINGLEPART' : False, 'GEOMETRY_COLUMN' : 'geometry', 'INPUT' : '/data/gpkg/teed/teed_l.gpkg|layername=teed_l', 'LOWERCASE_NAMES' : True, 'OVERWRITE' : True, 'PRIMARY_KEY' : 'fid', 'SCHEMA' : 'data', 'TABLENAME' : 'mikihiir' }
+#' @param str string A QGIS input parameters.
+#' @return A string.
+#' @seealso [qgisprocess::qgis_run_algorithm], [ruut::construct_ogr2ogr_PG_connect_str]
+#' @keywords QGIS
+#' @export
+#' @examples
+#'
+#' \dontrun{
+#'
+#' # QGIS funktsiooni käivitamisel saatakse logisse argumentidest järgmine väljund
+#' str <- "{ 'CREATEINDEX' : True, 'DATABASE' : 'Data', 'DROP_STRING_LENGTH' : False,
+#' 'ENCODING' : 'UTF-8', 'FORCE_SINGLEPART' : False, 'GEOMETRY_COLUMN' : 'geometry',
+#' 'INPUT' : '/data/gpkg/teed/teed_l.gpkg|layername=teed_l', 'LOWERCASE_NAMES' : True,
+#' 'OVERWRITE' : True, 'PRIMARY_KEY' : 'fid', 'SCHEMA' : 'data', 'TABLENAME' : 'mikihiir' }"
+#'
+#' construct_qgis_output_result_to_beter_format(str = str)
+#' }
+construct_qgis_output_result_to_beter_format <- function(str = "") {
+  str <- gsub("'", "", str)
+  str <- gsub(":", "=", str)
+  str <- gsub(" ", "", str)
+  str <- gsub(",", "',", str)
+  str <- gsub("=", "='", str)
+  str <- gsub("'True'", "1", str)
+  str <- gsub("'False'", "0", str)
+  str <- gsub(",", ",\n", str)
+  str <- gsub("[{]", "\nalgorithm=algorithm,\n", str)
+  str <- gsub("[}]", "'\n", str)
+  str <- gsub("layername='", "layername=", str)
+  cat(str)
+  str
+}

man/construct_qgis_output_result_to_beter_format.Rd

@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/construct_qgis_output_result_to_beter_format.R
+\name{construct_qgis_output_result_to_beter_format}
+\alias{construct_qgis_output_result_to_beter_format}
+\title{QGIS-i funktsiooni väljundist uue sisendiks vajaliku fraasi konstrueerimine}
+\usage{
+construct_qgis_output_result_to_beter_format(str = "")
+}
+\arguments{
+\item{str}{string A QGIS input parameters.}
+}
+\value{
+A string.
+}
+\description{
+See funktsioon konstrueerib 'QGIS' funktsiooni väljundi logisse tekkiva input parameetrid kujule, mida oleks võimalik kasutada funktsiooni \code{\link[qgisprocess]{qgis_run_algorithm}} argumentidena.
+}
+\details{
+Näidis:
+Processing algorithm…
+Algorithm 'Export to PostgreSQL' starting…
+Input parameters:
+{ 'CREATEINDEX' : True, 'DATABASE' : 'Data', 'DROP_STRING_LENGTH' : False, 'ENCODING' : 'UTF-8', 'FORCE_SINGLEPART' : False, 'GEOMETRY_COLUMN' : 'geometry', 'INPUT' : '/data/gpkg/teed/teed_l.gpkg|layername=teed_l', 'LOWERCASE_NAMES' : True, 'OVERWRITE' : True, 'PRIMARY_KEY' : 'fid', 'SCHEMA' : 'data', 'TABLENAME' : 'mikihiir' }
+}
+\examples{
+
+\dontrun{
+
+# QGIS funktsiooni käivitamisel saatakse logisse argumentidest järgmine väljund
+str <- "{ 'CREATEINDEX' : True, 'DATABASE' : 'Data', 'DROP_STRING_LENGTH' : False,
+'ENCODING' : 'UTF-8', 'FORCE_SINGLEPART' : False, 'GEOMETRY_COLUMN' : 'geometry',
+'INPUT' : '/data/gpkg/teed/teed_l.gpkg|layername=teed_l', 'LOWERCASE_NAMES' : True,
+'OVERWRITE' : True, 'PRIMARY_KEY' : 'fid', 'SCHEMA' : 'data', 'TABLENAME' : 'mikihiir' }"
+
+construct_qgis_output_result_to_beter_format(str = str)
+}
+}
+\seealso{
+\link[qgisprocess:qgis_run_algorithm]{qgisprocess::qgis_run_algorithm}, \link{construct_ogr2ogr_PG_connect_str}
+}
+\keyword{QGIS}