소스 검색

Lisatud kaardiruudustike genereerimine.

Ardo Kubjas 5 년 전
부모
커밋
efdb76e820
10개의 변경된 파일473개의 추가작업 그리고 34개의 파일을 삭제
  1. 34 34
      .Rhistory
  2. 4 0
      NAMESPACE
  3. 98 0
      R/epk02t_grids.R
  4. 69 0
      R/epk10t_grids.R
  5. 69 0
      R/epk200t_grids.R
  6. 68 0
      R/epk2t_grids.R
  7. 33 0
      man/epk02t_grids.Rd
  8. 33 0
      man/epk10t_grids.Rd
  9. 33 0
      man/epk200t_grids.Rd
  10. 32 0
      man/epk2t_grids.Rd

+ 34 - 34
.Rhistory

@@ -1,37 +1,3 @@
-ruut::copy_shp_to_db(
-dir = tmp_dir, layer = tbl_names[i], conf = conf,
-id = "fid", crs_source = "EPSG:3301", crs_target = "EPSG:4326",
-geometry_type = "POINT"
-)
-cat(sprintf(
-"\nShp fail %s kopeeriti POSTGIS andmebaasi %s.%s\n\n",
-ls[i], conf$schema, conf$table
-))
-}
-tbl_names[i]
-library(estmap)
-conf = NULL
-# Temp directory
-tmp_dir <- "/tmp/gtfs"
-if (!dir.exists(tmp_dir)) {
-dir.create(tmp_dir)
-}
-# Download link
-url <- "http://www.peatus.ee/gtfs/"
-# Estonia shapefile (ZIP archive)
-map_shapefile <- "gtfs.zip"
-# Download and save
-url_download <- sprintf("%s%s", url, map_shapefile)
-saveTo <- sprintf("%s/%s", tmp_dir, map_shapefile)
-if (!file.exists(saveTo)) {
-utils::download.file(
-url = url_download,
-destfile = saveTo, method = "curl", extra = "-L"
-)
-}
-# Unzip
-utils::unzip(saveTo, overwrite = T, exdir = tmp_dir)
-# List of files
 ls <- list.files(path = tmp_dir, pattern = ".txt")
 ls_long <- list.files(path = tmp_dir, pattern = ".txt", full.names = T)
 tbl_names <- tools::file_path_sans_ext(list.files(path = tmp_dir, pattern = "*.txt"))
@@ -510,3 +476,37 @@ system(sprintf("find %s -type f -not -name '%s' -print0 | xargs -0 rm --", tmp_d
 styler:::style_active_file()
 styler:::style_active_file()
 library(estmap)
+conf = NULL
+# Export to postgis
+if (is.null(conf)) {
+conf <- ruut::get_config()
+conf$schema <- "teeregister_wfs"
+}
+ruut::db_create_new_schema(conf = conf)
+## Teeregistri avaandmete kihtide lugemine
+wfs_list <- loe_teeregistri_wfs_kihid()
+layer_list <- wfs_list[, "layer"]
+wfs_list <- loe_teeregistri_wfs_kihid()
+wfs_list <- estmap:::loe_teeregistri_wfs_kihid()
+wfs_list
+layer_list
+layer_list <- wfs_list[, "layer"]
+layer_list
+installed_tables <- ruut::db_schema_tablenames(conf = conf)
+installed_tables
+layer_list
+i=1
+wfs_layer <- layer_list[i]
+conf$table <- gsub("ms:", "", wfs_layer)
+conf$table
+conf$table <- tolower(gsub("ms:", "", wfs_layer))
+conf$table
+conf$table %in% installed_tables
+!conf$table %in% installed_tables
+styler:::style_active_file()
+i=58
+wfs_layer <- layer_list[i]
+conf$table <- tolower(gsub("ms:", "", wfs_layer))
+!conf$table %in% installed_tables
+library(estmap)
+teeregister_wfs()

+ 4 - 0
NAMESPACE

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

+ 98 - 0
R/epk02t_grids.R

@@ -0,0 +1,98 @@
+#' 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
+      ))
+    }
+  }
+}

+ 69 - 0
R/epk10t_grids.R

@@ -0,0 +1,69 @@
+#' 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
+    ))
+  }
+}

+ 69 - 0
R/epk200t_grids.R

@@ -0,0 +1,69 @@
+#' 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
+    ))
+  }
+}

+ 68 - 0
R/epk2t_grids.R

@@ -0,0 +1,68 @@
+#' 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
+    ))
+  }
+}

+ 33 - 0
man/epk02t_grids.Rd

@@ -0,0 +1,33 @@
+% 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,}

+ 33 - 0
man/epk10t_grids.Rd

@@ -0,0 +1,33 @@
+% 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,}

+ 33 - 0
man/epk200t_grids.Rd

@@ -0,0 +1,33 @@
+% 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,}

+ 32 - 0
man/epk2t_grids.Rd

@@ -0,0 +1,32 @@
+% 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,}