Täiendused eelmiste muudatuste juurde.

R/gpkg_piirkonnale_joonte_lisamine.R

@@ -79,7 +79,6 @@ gpkg_piirkonnale_joonte_lisamine <- function(obj = NULL, gpkg_home = "/tmp") {
       cat(sprintf("\n%s\n\n", cmd))
       system(cmd)
       ## !!! Trikk jätkub: edasi leiame alles ühisosa
-      str <- paste0("{ 'INPUT' : '", tmp_gpkg_file_input, "', 'OVERLAY' : '", intersect_layer, "', 'OUTPUT' : '", output, "', 'INPUT_FIELDS' : '', 'OVERLAY_FIELDS' : '', 'OVERLAY_FIELDS_PREFIX' : '' }")
       str <- paste0("{ 'INPUT' : '", tmp_gpkg_file_input, "', 'INPUT_FIELDS' : [], 'OUTPUT' : '", output, "', 'OVERLAY' : '", intersect_layer, "', 'OVERLAY_FIELDS' : [], 'OVERLAY_FIELDS_PREFIX' : '' }")
       algorithm <- "native:intersection"
       cmd <- ruut::construct_qgis_output_result_to_better_format(str = str, algorithm = algorithm)

R/gpkg_piirkonnale_punktide_lisamine.R

@@ -90,7 +90,7 @@ gpkg_piirkonnale_punktide_lisamine <- function(obj = NULL, gpkg_home = "/tmp") {
           input <- ruut::construct_to_gpkg_output_file_str(conf = conf, is_input_str = TRUE)
           conf$gpkg_table <- sprintf("%s_%s", conf$gpkg_table, table_suffix)
           output <- ruut::construct_to_gpkg_output_file_str(conf = conf, is_input_str = FALSE)
-          str <- paste0("{ 'INPUT' : '", input, "', 'INTERSECT' : '", intersect_layer, "', 'OUTPUT' : '", output, "', FIELD : 'adob_liik', OPERATOR : 0, VALUE : '", aadressandmed$adob_liik[k], "' }")
+          str <- paste0("{ 'INPUT' : '", input, "', 'INTERSECT' : '", intersect_layer, "', 'OUTPUT' : '", output, "', FIELD : 'adob_liik', OPERATOR : 0, VALUE : ", aadressandmed$adob_liik[k], " }")
           algorithm <- "native:extractbyattribute"
           cmd <- ruut::construct_qgis_output_result_to_better_format(str = str, algorithm = algorithm)
           cat(sprintf("\n%s\n", cmd))