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