Täiendus 'construct_qgis_output_result_to_beter_format'.

R/construct_qgis_output_result_to_beter_format.R

@@ -36,6 +36,7 @@ construct_qgis_output_result_to_beter_format <- function(str = "") {
   str <- gsub("[{]", "\nalgorithm=algorithm,\n", str)
   str <- gsub("[}]", "'\n", str)
   str <- gsub("layername='", "layername=", str)
+  str <- cat(gsub("'([0-9]+\\.{0,1}[0-9]*)'", "\\1", str))
   cat(str)
   str
 }