estmap/R/epk_grids.R

#' 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))
}