Parandus 'construct_qgis_output_result_to_better_format'.

R/construct_qgis_output_result_to_better_format.R

@@ -40,26 +40,19 @@ construct_qgis_output_result_to_better_format <- function(str = "", algorithm =
   # Suurte tähtede ümbert ülakomade eemaldamine
   str <- gsub("'([A-Z_]*)'", "--\\1", str)
   # Väärtustel vahetame väärtuste välimised 1-kordsed jutumärgid 2-kordsetega
-  str <- gsub(" : '", "=\"", str)
-  str <- gsub("', ", "\" ", str)
   str <- gsub(" : ", "=", str)
-  ## Asendame autentimise tunnuse salasõnaga.
-  str <- gsub("(authcfg=[0-9a-zA-Z_/=.]+\\.{0,1}[0-9a-zA-Z_/=.]*)", "password='osm'", str)
   # Loogiliste sulgude eemaldamine
   str <- gsub("[{]", "qgis_process run algorithm ", str)
   str <- gsub("[}]", "", str)
-  str <- gsub("\"([ a-zA-Z0-9_ ]*)\"", "\\\\\"\\1\\\\\"", str)
   # Eemaldame komad
   str <- gsub(", ", " ", str)
+  ## Asendame autentimise tunnuse salasõnaga.
+  str <- gsub("(authcfg=[0-9a-zA-Z_/=.]+\\.{0,1}[0-9a-zA-Z_/=.]*)", "password='osm'", str)
   # Asendame algoritmi
   str <- gsub("algorithm", algorithm, str)
   # Nurksulgude asendamine
   str <- gsub("[[]", "", str)
   str <- gsub("[]]", "", str)
-  # Asendame ="[]'
-  str <- gsub("=\"([ a-zA-Z0-9_ ]*)'", "='\\1'", str)
-  # Muutuja väärtuste ümbert 2-kordsed ülakomad asendada 1-kordsete ülakomadega
-  str <- gsub("=\\\\\"([a-zA-Z0-9_]*)\\\\\"", "='\\1'", str)
   cat(str)
   str
 }