ruut/R/construct_qgis_output_result_to_beter_format.R

#' 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
}