210127_artikkel/geomeetria_teisendused/create_epk200t_bb.R

#' Funktsioon: epk200t (100x100km) kaardiruutudele piirikasti (boundary box) loomine
#' Olemasolevatele ruutudele 'maaamet.epk200t' luuakse piirikast ning
#' salvestatakse see tabelisee nimega 'maaamet.epk200t_bb'.

create_epk200t_bb <- function() {
  # ruut::qgis_algorithm_search_by_word(str = "bounding")
  algorithm <- "qgis:minimumboundinggeometry"
  # cat(qgisprocess::qgis_show_help(algorithm = algorithm))
  result <- qgisprocess::qgis_run_algorithm(
    algorithm = algorithm,
    FIELD = "",
    INPUT = 'postgres://dbname=\'data\' host=localhost port=6432 user=\'osm\' sslmode=disable password=\'osm\' key=\'fid\' srid=4326 type=Polygon checkPrimaryKeyUnicity=\'1\' table=\"maaamet\".\"epk200t\" (geometry)',
    TYPE = 3,
    OUTPUT = qgisprocess::qgis_tmp_vector(),
    .quiet = TRUE
  )
  # result
  epk200t_bb <- sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT"))
  sf::st_geometry(epk200t_bb) %>% plot()
  conf <- ruut::get_config()
  conf$table <- "epk200t_bb"
  conf$schema <- "maaamet"
  ruut::copy_qgis_object_to_db(x = result, conf = conf, geometry_type = "POLYGON")
  cat(sprintf("\n-----------------\nAlgoritm: %s valmis.\n\n", algorithm))
}
# create_epk200t_bb()