Lisatu 'epk_grids'. Kõikide vajalike kaardiruutude genereerimine käib ühe faili abil. Vanad failid kustutati. Muudeti genereeritavate failide projektsiooniks EPSG::3301.

NAMESPACE

@@ -1,9 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
-export(epk02t_grids)
-export(epk10t_grids)
-export(epk200t_grids)
-export(epk2t_grids)
+export(epk_grids)
 export(gtfs)
 export(inspire_grids)
 export(maaamet_aadressandmed)

R/epk02t_grids.R

@@ -1,98 +0,0 @@
-#' 100x100 meetrit kaardiruudukeste genereerimine
-#'
-#' NB!!!! 100x100 meetrit ruudustike genereerimine võtab aega > 12 tundi. Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 100x100 meetrit. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk02t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
-#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
-#' @return No output.
-#' @seealso [ruut::get_config()], [ruut::copy_shp_to_db()]
-#' @keywords postgis, maps, ESRI Shpfile, OSM
-#' @export
-#' @examples
-#' \dontrun{
-#'
-#' conf <- ruut::get_config()
-#' epk02t_grids(conf = conf)
-#' }
-#'
-epk02t_grids <- function(conf = NULL) {
-  ans <- utils::askYesNo("Do you want to import maps into database?", default = F)
-  if (!ans | is.na(ans)) {
-    cat("\n------------------------\n")
-    cat("Kaardikihte ei lisatud.")
-    cat("\n------------------------\n")
-    return()
-  }
-  if (ans) {
-    # Temp directory
-    tmp_dir <- sprintf("%s/%s/epk02t_grid", system.file(package = "estmap"), "maaamet_epk_grids")
-    if (!dir.exists(tmp_dir)) {
-      dir.create(tmp_dir, recursive = T)
-    }
-    conf <- ruut::get_config()
-    conf$table <- "epk02t_grid"
-    conf$schema <- "maaamet"
-    conf$schema <- "gtfs"
-    ## Loe instaleeritud tabelid andmebaasis
-    installed_tables <- ruut::db_schema_tablenames(conf = conf)
-    algorithm <- "grass7:v.mkgrid"
-    if (!conf$table %in% installed_tables) {
-      # 1:40
-      for (i in 1:40) {
-        coordinates <- sprintf("300000,6%s0000 [EPSG:3301]", (29 + i))
-        map <- sprintf("%s/%s.gpkg", tmp_dir, i)
-        cat(sprintf("\n%s/40 1. coordinates: %s, 2. map: %s", i, coordinates, map))
-        # ------------------
-        result <- qgisprocess::qgis_run_algorithm(
-          algorithm = algorithm,
-          "-h" = 0,
-          "-p" = 0,
-          GRASS_OUTPUT_TYPE_PARAMETER = 3,
-          GRASS_REGION_PARAMETER = "300000,800000,6320000,6700000  [EPSG:3301]",
-          GRASS_VECTOR_DSCO = "",
-          GRASS_VECTOR_EXPORT_NOCAT = 0,
-          GRASS_VECTOR_LCO = "",
-          angle = 0,
-          box = "100,100",
-          breaks = 0,
-          coordinates = coordinates,
-          grid = "100,5000", # "4000,5000"
-          map = map,
-          position = 0,
-          .quiet = TRUE
-        )
-        # result
-        ## Muudame rea numbreid, kuna tsükliga lähevad need kaduma.
-        layers <- rgdal::ogrListLayers(map)
-        x <- rgdal::readOGR(map, layers[1])
-        x$row <- x$row + (i - 1) * 100
-        x$cat <- rev(x$cat + (i - 1) * 100)
-        rgdal::writeOGR(obj = x, dsn = map, layer = layers[1], driver = "GPKG", overwrite_layer = T)
-        ## Lisame kihi andmebaasi
-        cmd <- sprintf(
-          paste0(
-            "ogr2ogr -append --config PG_USE_COPY YES -f PostgreSQL ",
-            "PG:\" dbname='%s' host=%s port=%d user='%s' password='%s' ",
-            "sslmode=%s active_schema=%s \" -lco DIM=2 \"%s\" -nlt GEOMETRY ",
-            "-lco GEOMETRY_NAME=geometry -lco FID=%s -nln %s.%s ",
-            "-s_srs %s -t_srs %s -nlt %s"
-          ),
-          conf$dbname, conf$host, conf$port, conf$user, conf$password, conf$sslmode,
-          conf$schema, map, "id", conf$schema, conf$table, "EPSG:3301", "EPSG:4326",
-          "POLYGON"
-        )
-        cat(sprintf("\n-----------------\n%s\n", cmd))
-        system(cmd)
-        cat(sprintf(
-          "Fail fail %s kopeeriti POSTGIS andmebaasi %s.%s\n\n",
-          map, conf$schema, conf$table
-        ))
-      }
-      cat(sprintf("\n-----------------\nAlgoritm: %s valmis.\n\n", algorithm))
-      # result
-    } else {
-      cat(sprintf(
-        "\n-----------------\nUue andmebaasi '%s' installimiseks pead vana enne kustutama.\n",
-        conf$table
-      ))
-    }
-  }
-}

R/epk10t_grids.R

@@ -1,69 +0,0 @@
-#' 5x5 km kaardiruudukeste genereerimine
-#'
-#' Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 5x5 km. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk10t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
-#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
-#' @return No output.
-#' @seealso [ruut::get_config()], [ruut::copy_shp_to_db()]
-#' @keywords postgis, maps, ESRI Shpfile, OSM
-#' @export
-#' @examples
-#' \dontrun{
-#'
-#' conf <- ruut::get_config()
-#' epk10t_grids(conf = conf)
-#' }
-#'
-epk10t_grids <- function(conf = NULL) {
-  ans <- utils::askYesNo("Do you want to import maps into database?", default = F)
-  if (!ans | is.na(ans)) {
-    cat("\n------------------------\n")
-    cat("Kaardikihte ei lisatud.")
-    cat("\n------------------------\n")
-    return()
-  }
-  if (ans) {
-    # Temp directory
-    tmp_dir <- sprintf("%s/tmp/%s", system.file(package = "estmap"), "maaamet_epk_grids")
-    if (!dir.exists(tmp_dir)) {
-      dir.create(tmp_dir)
-    }
-    tmp_file <- sprintf("%s/epk10t_grid.gpkg", tmp_dir)
-    if (!file.exists(tmp_file)) {
-      # ruut::qgis_algorithm_search_by_word(str = "v.mkgrid")
-      algorithm <- "grass7:v.mkgrid"
-      # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-      result <- qgisprocess::qgis_run_algorithm(
-        algorithm = algorithm,
-        "-h" = 0,
-        "-p" = 0,
-        GRASS_OUTPUT_TYPE_PARAMETER = 0,
-        GRASS_REGION_PARAMETER = "",
-        GRASS_VECTOR_DSCO = "",
-        GRASS_VECTOR_EXPORT_NOCAT = 0,
-        GRASS_VECTOR_LCO = "",
-        angle = 0,
-        box = "5000,5000",
-        breaks = 0,
-        coordinates = "300000,6300000 [EPSG:3301]",
-        grid = "80,100",
-        map = tmp_file,
-        position = 0,
-        # .quiet = TRUE
-      )
-      # result
-      # epk10t_grid <- sf::read_sf(qgisprocess::qgis_output(result, "map"))
-      # sf::st_geometry(epk10t_grid) %>% plot()
-    }
-    conf <- ruut::get_config()
-    conf$table <- "epk10t_grid"
-    conf$schema <- "maaamet"
-    ruut::copy_qgis_object_to_db(
-      x = result, conf = conf, geometry_type = "POLYGON",
-      crs_source = "EPSG:3301"
-    )
-    cat(sprintf(
-      "\nFail fail %s kopeeriti POSTGIS andmebaasi %s.%s\n\n",
-      tmp_file, conf$schema, conf$table
-    ))
-  }
-}

R/epk200t_grids.R

@@ -1,69 +0,0 @@
-#' 100x100 km kaardiruudukeste genereerimine
-#'
-#' Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 100x100 km. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk200t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
-#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
-#' @return No output.
-#' @seealso [ruut::get_config()], [ruut::copy_shp_to_db()]
-#' @keywords postgis, maps, ESRI Shpfile, OSM
-#' @export
-#' @examples
-#' \dontrun{
-#'
-#' conf <- ruut::get_config()
-#' epk200t_grids(conf = conf)
-#' }
-#'
-epk200t_grids <- function(conf = NULL) {
-  ans <- utils::askYesNo("Do you want to import maps into database?", default = F)
-  if (!ans | is.na(ans)) {
-    cat("\n------------------------\n")
-    cat("Kaardikihte ei lisatud.")
-    cat("\n------------------------\n")
-    return()
-  }
-  if (ans) {
-    # Temp directory
-    tmp_dir <- sprintf("%s/tmp/%s", system.file(package = "estmap"), "maaamet_epk_grids")
-    if (!dir.exists(tmp_dir)) {
-      dir.create(tmp_dir)
-    }
-    tmp_file <- sprintf("%s/epk200t_grid.gpkg", tmp_dir)
-    if (!file.exists(tmp_file)) {
-      # ruut::qgis_algorithm_search_by_word(str = "v.mkgrid")
-      algorithm <- "grass7:v.mkgrid"
-      # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-      result <- qgisprocess::qgis_run_algorithm(
-        algorithm = algorithm,
-        "-h" = 0,
-        "-p" = 0,
-        GRASS_OUTPUT_TYPE_PARAMETER = 0,
-        GRASS_REGION_PARAMETER = "",
-        GRASS_VECTOR_DSCO = "",
-        GRASS_VECTOR_EXPORT_NOCAT = 0,
-        GRASS_VECTOR_LCO = "",
-        angle = 0,
-        box = "100000,100000",
-        breaks = 0,
-        coordinates = "300000,6300000 [EPSG:3301]",
-        grid = "4,5",
-        map = tmp_file,
-        position = 0,
-        # .quiet = TRUE
-      )
-      # result
-      # epk200t_grid <- sf::read_sf(qgisprocess::qgis_output(result, "map"))
-      # sf::st_geometry(epk200t_grid) %>% plot()
-    }
-    conf <- ruut::get_config()
-    conf$table <- "epk200t_grid"
-    conf$schema <- "maaamet"
-    ruut::copy_qgis_object_to_db(
-      x = result, conf = conf, geometry_type = "POLYGON",
-      crs_source = "EPSG:3301"
-    )
-    cat(sprintf(
-      "\nFail fail %s kopeeriti POSTGIS andmebaasi %s.%s\n\n",
-      tmp_file, conf$schema, conf$table
-    ))
-  }
-}

R/epk2t_grids.R

@@ -1,68 +0,0 @@
-#' 1x1 km kaardiruudukeste genereerimine
-#'
-#' Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 1x1 km. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk2t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
-#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
-#' @return No output.
-#' @seealso [ruut::get_config()], [ruut::copy_shp_to_db()]
-#' @keywords postgis, maps, ESRI Shpfile, OSM
-#' @export
-#' @examples
-#' \dontrun{
-#'
-#' conf <- ruut::get_config()
-#' epk2t_grids(conf = conf)
-#' }
-epk2t_grids <- function(conf = NULL) {
-  ans <- utils::askYesNo("Do you want to import maps into database?", default = F)
-  if (!ans | is.na(ans)) {
-    cat("\n------------------------\n")
-    cat("Kaardikihte ei lisatud.")
-    cat("\n------------------------\n")
-    return()
-  }
-  if (ans) {
-    # Temp directory
-    tmp_dir <- sprintf("%s/tmp/%s", system.file(package = "estmap"), "maaamet_epk_grids")
-    if (!dir.exists(tmp_dir)) {
-      dir.create(tmp_dir)
-    }
-    tmp_file <- sprintf("%s/epk2t_grid.gpkg", tmp_dir)
-    if (!file.exists(tmp_file)) {
-      # ruut::qgis_algorithm_search_by_word(str = "v.mkgrid")
-      algorithm <- "grass7:v.mkgrid"
-      # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
-      result <- qgisprocess::qgis_run_algorithm(
-        algorithm = algorithm,
-        "-h" = 0,
-        "-p" = 0,
-        GRASS_OUTPUT_TYPE_PARAMETER = 0,
-        GRASS_REGION_PARAMETER = "",
-        GRASS_VECTOR_DSCO = "",
-        GRASS_VECTOR_EXPORT_NOCAT = 0,
-        GRASS_VECTOR_LCO = "",
-        angle = 0,
-        box = "1000,1000",
-        breaks = 0,
-        coordinates = "300000,6300000 [EPSG:3301]",
-        grid = "400,500",
-        map = tmp_file,
-        position = 0,
-        # .quiet = TRUE
-      )
-      # result
-      # epk2t_grid <- sf::read_sf(qgisprocess::qgis_output(result, "map"))
-      # sf::st_geometry(epk2t_grid) %>% plot()
-    }
-    conf <- ruut::get_config()
-    conf$table <- "epk2t_grid"
-    conf$schema <- "maaamet"
-    ruut::copy_qgis_object_to_db(
-      x = result, conf = conf, geometry_type = "POLYGON",
-      crs_source = "EPSG:3301"
-    )
-    cat(sprintf(
-      "\nFail %s kopeeriti POSTGIS andmebaasi %s.%s\n\n",
-      tmp_file, conf$schema, conf$table
-    ))
-  }
-}

R/epk_grids.R

@@ -0,0 +1,99 @@
+#' 100x100 km kaardiruudukeste genereerimine
+#'
+#' Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 100x100 km. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk200t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
+#' @param output str See on salvestamise string sõltuvalt millisele kujule soovitakse ruudustikke salvestada. Vaata 'gpkg' kujule \code{\link[ruut]{construct_to_gpkg_output_file_str}} või 'postgis' andmebaasi  \code{\link[ruut]{construct_to_gpkg_output_postgres_str}}.
+#' @return String.
+#' @seealso [ruut::get_config()], [ruut::construct_to_gpkg_output_file_str()], [ruut::construct_to_gpkg_output_postgres_str()]
+#' @keywords postgis, gpkg
+#' @export
+#' @examples
+#' \dontrun{
+#'
+#' # Postgresql output
+#' conf <- ruut::get_config()
+#' conf$schema <- "maaamet"
+#' conf$table <- "epk200t_bb"
+#' output <- ruut::construct_to_gpkg_output_postgres_str(conf = conf)
+#'
+#' # GPKG output
+#' gpkg_home <- "/data/gpkg/artiklid/artikkel_210127_valga_matsalu_lahemaa"
+#' gpkg_file <- "ruudud"
+#' gpkg_table <- "epk200t_bb"
+#' output <- ruut::construct_to_gpkg_output_file_str(gpkg_home = gpkg_home,
+#' gpkg_file = gpkg_file, gpkg_table = gpkg_table)
+#'
+#' epk_grids(output = output)
+#' }
+epk_grids <- function(output = NULL) {
+  if (!exists("conf")) conf <- NULL
+  conf$table <- gpkg_table <- "epk200t_bb"
+  # ruut::qgis_algorithm_search_by_word(str = "grid")
+  algorithm <- "native:creategrid"
+  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
+  result <- qgisprocess::qgis_run_algorithm(
+    algorithm = algorithm,
+    CRS = "EPSG:3301",
+    EXTENT = "300000.000000000,800000.000000000,6300000.000000000,6700000.000000000 [EPSG=3301]",
+    HOVERLAY = 0,
+    HSPACING = 500000,
+    OUTPUT = output,
+    TYPE = 2,
+    VOVERLAY = 0,
+    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
+  # )
+  cat(sprintf("\nAndmed salvestati asukohta: %s.\n\n", output))
+}

man/epk02t_grids.Rd

@@ -1,33 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/epk02t_grids.R
-\name{epk02t_grids}
-\alias{epk02t_grids}
-\title{100x100 meetrit kaardiruudukeste genereerimine}
-\usage{
-epk02t_grids(conf = NULL)
-}
-\arguments{
-\item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
-}
-\value{
-No output.
-}
-\description{
-NB!!!! 100x100 meetrit ruudustike genereerimine võtab aega > 12 tundi. Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 100x100 meetrit. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk02t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
-}
-\examples{
-\dontrun{
-
-conf <- ruut::get_config()
-epk02t_grids(conf = conf)
-}
-
-}
-\seealso{
-\code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}
-}
-\keyword{ESRI}
-\keyword{OSM}
-\keyword{Shpfile,}
-\keyword{maps,}
-\keyword{postgis,}

man/epk10t_grids.Rd

@@ -1,33 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/epk10t_grids.R
-\name{epk10t_grids}
-\alias{epk10t_grids}
-\title{5x5 km kaardiruudukeste genereerimine}
-\usage{
-epk10t_grids(conf = NULL)
-}
-\arguments{
-\item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
-}
-\value{
-No output.
-}
-\description{
-Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 5x5 km. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk10t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
-}
-\examples{
-\dontrun{
-
-conf <- ruut::get_config()
-epk10t_grids(conf = conf)
-}
-
-}
-\seealso{
-\code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}
-}
-\keyword{ESRI}
-\keyword{OSM}
-\keyword{Shpfile,}
-\keyword{maps,}
-\keyword{postgis,}

man/epk200t_grids.Rd

@@ -1,33 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/epk200t_grids.R
-\name{epk200t_grids}
-\alias{epk200t_grids}
-\title{100x100 km kaardiruudukeste genereerimine}
-\usage{
-epk200t_grids(conf = NULL)
-}
-\arguments{
-\item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
-}
-\value{
-No output.
-}
-\description{
-Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 100x100 km. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk200t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
-}
-\examples{
-\dontrun{
-
-conf <- ruut::get_config()
-epk200t_grids(conf = conf)
-}
-
-}
-\seealso{
-\code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}
-}
-\keyword{ESRI}
-\keyword{OSM}
-\keyword{Shpfile,}
-\keyword{maps,}
-\keyword{postgis,}

man/epk2t_grids.Rd

@@ -1,32 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/epk2t_grids.R
-\name{epk2t_grids}
-\alias{epk2t_grids}
-\title{1x1 km kaardiruudukeste genereerimine}
-\usage{
-epk2t_grids(conf = NULL)
-}
-\arguments{
-\item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
-}
-\value{
-No output.
-}
-\description{
-Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 1x1 km. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk2t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
-}
-\examples{
-\dontrun{
-
-conf <- ruut::get_config()
-epk2t_grids(conf = conf)
-}
-}
-\seealso{
-\code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}
-}
-\keyword{ESRI}
-\keyword{OSM}
-\keyword{Shpfile,}
-\keyword{maps,}
-\keyword{postgis,}

man/epk_grids.Rd

@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/epk_grids.R
+\name{epk_grids}
+\alias{epk_grids}
+\title{100x100 km kaardiruudukeste genereerimine}
+\usage{
+epk_grids(output = NULL)
+}
+\arguments{
+\item{output}{str See on salvestamise string sõltuvalt millisele kujule soovitakse ruudustikke salvestada. Vaata 'gpkg' kujule \code{\link[ruut]{construct_to_gpkg_output_file_str}} või 'postgis' andmebaasi  \code{\link[ruut]{construct_to_gpkg_output_postgres_str}}.}
+}
+\value{
+String.
+}
+\description{
+Eesti projektsioonile vastava ning kogu Eestit katva ruutvõrgustiku genereerimine ja salvestamine andmebaasi. Ruutvõrgustiku ruudu suurus 100x100 km. Võrgustik salvestatakse vaikimisi andmebaasi nime 'maaamet.epk200t_grid' alla.Loe: \url{https://geoportaal.maaamet.ee/est/Ruumiandmed/Kaardilehtede-susteemid-p224.html}. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
+}
+\examples{
+\dontrun{
+
+# Postgresql output
+conf <- ruut::get_config()
+conf$schema <- "maaamet"
+conf$table <- "epk200t_bb"
+output <- ruut::construct_to_gpkg_output_postgres_str(conf = conf)
+
+# GPKG output
+gpkg_home <- "/data/gpkg/artiklid/artikkel_210127_valga_matsalu_lahemaa"
+gpkg_file <- "ruudud"
+gpkg_table <- "epk200t_bb"
+output <- ruut::construct_to_gpkg_output_file_str(gpkg_home = gpkg_home,
+gpkg_file = gpkg_file, gpkg_table = gpkg_table)
+
+epk_grids(output = output)
+}
+}
+\seealso{
+\code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:construct_to_gpkg_output_file_str]{ruut::construct_to_gpkg_output_file_str()}}, \code{\link[ruut:construct_to_gpkg_output_postgres_str]{ruut::construct_to_gpkg_output_postgres_str()}}
+}
+\keyword{gpkg}
+\keyword{postgis,}