| 123456789101112 |
- #' Uute geomeetriliste joonte genereerimine ja salvestamine andmebaasi.
- #'
- ## 1. Piirkonda katvate epk10t ruudud
- for (i in 1:length(objektid)) {
- cat(sprintf("\n-----------------\n%s\n\n", objektid[i]))
- result <- create_pk_piir_bb(obj = objektid[i])
- epk10t <- sf::read_sf(qgis_output(result, "OUTPUT"))
- sf::st_geometry(epk10t) %>% plot()
- conf$table <- sprintf("%s_epk10t", objektid[i])
- ruut::copy_qgis_object_to_db(x = result, conf = conf, geometry_type = "POLYGON")
- }
|
