Muudeti 'epk_grids'.

R/epk_grids.R

@@ -42,58 +42,58 @@ epk_grids <- function(output = NULL) {
     VSPACING = 400000
     # .quiet = TRUE
   )
-  # conf$table <- gpkg_table <- "epk200t_grid"
-  # result <- qgisprocess::qgis_run_algorithm(
-  #   algorithm = algorithm,
-  #   CRS = "EPSG:3301",
-  #   EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
-  #   HOVERLAY = 0,
-  #   HSPACING = 100000,
-  #   OUTPUT = output,
-  #   TYPE = 2,
-  #   VOVERLAY = 0,
-  #   VSPACING = 100000
-  #   # .quiet = TRUE
-  # )
-  # conf$table <- gpkg_table <- "epk2t_grid"
-  # result <- qgisprocess::qgis_run_algorithm(
-  #   algorithm = algorithm,
-  #   CRS = "EPSG:3301",
-  #   EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
-  #   HOVERLAY = 0,
-  #   HSPACING = 1000,
-  #   OUTPUT = output,
-  #   TYPE = 2,
-  #   VOVERLAY = 0,
-  #   VSPACING = 1000
-  #   # .quiet = TRUE
-  # )
-  # conf$table <- gpkg_table <- "epk10t_grid"
-  # result <- qgisprocess::qgis_run_algorithm(
-  #   algorithm = algorithm,
-  #   CRS = "EPSG:3301",
-  #   EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
-  #   HOVERLAY = 0,
-  #   HSPACING = 5000,
-  #   OUTPUT = output,
-  #   TYPE = 2,
-  #   VOVERLAY = 0,
-  #   VSPACING = 5000
-  #   # .quiet = TRUE
-  # )
-  # conf$table <- gpkg_table <- "epk02t_grid"
-  # output <- ruut::construct_to_gpkg_output_postgres_str(conf = conf)
-  # result <- qgisprocess::qgis_run_algorithm(
-  #   algorithm = algorithm,
-  #   CRS = "EPSG:3301",
-  #   EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
-  #   HOVERLAY = 0,
-  #   HSPACING = 100,
-  #   OUTPUT = output,
-  #   TYPE = 2,
-  #   VOVERLAY = 0,
-  #   VSPACING = 100
-  #   # .quiet = TRUE
-  # )
+  conf$table <- gpkg_table <- "epk200t_grid"
+  result <- qgisprocess::qgis_run_algorithm(
+    algorithm = algorithm,
+    CRS = "EPSG:3301",
+    EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
+    HOVERLAY = 0,
+    HSPACING = 100000,
+    OUTPUT = output,
+    TYPE = 2,
+    VOVERLAY = 0,
+    VSPACING = 100000
+    # .quiet = TRUE
+  )
+  conf$table <- gpkg_table <- "epk2t_grid"
+  result <- qgisprocess::qgis_run_algorithm(
+    algorithm = algorithm,
+    CRS = "EPSG:3301",
+    EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
+    HOVERLAY = 0,
+    HSPACING = 1000,
+    OUTPUT = output,
+    TYPE = 2,
+    VOVERLAY = 0,
+    VSPACING = 1000
+    # .quiet = TRUE
+  )
+  conf$table <- gpkg_table <- "epk10t_grid"
+  result <- qgisprocess::qgis_run_algorithm(
+    algorithm = algorithm,
+    CRS = "EPSG:3301",
+    EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
+    HOVERLAY = 0,
+    HSPACING = 5000,
+    OUTPUT = output,
+    TYPE = 2,
+    VOVERLAY = 0,
+    VSPACING = 5000
+    # .quiet = TRUE
+  )
+  conf$table <- gpkg_table <- "epk02t_grid"
+  output <- ruut::construct_to_gpkg_output_postgres_str(conf = conf)
+  result <- qgisprocess::qgis_run_algorithm(
+    algorithm = algorithm,
+    CRS = "EPSG:3301",
+    EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
+    HOVERLAY = 0,
+    HSPACING = 100,
+    OUTPUT = output,
+    TYPE = 2,
+    VOVERLAY = 0,
+    VSPACING = 100
+    # .quiet = TRUE
+  )
   cat(sprintf("\nAndmed salvestati asukohta: %s.\n\n", output))
 }