#' Andmebaasi loomine ja ühendamine
#'

library(dplyr)

par(oma = c(0, 0, 0, 0)) # outer margin
par(mar = c(0, 0, 0, 0) + 0.0)

# Uue schema loomine
conf <- ruut::get_config()
conf$schema <- "xxx_artikkel_210127"
ruut::db_create_new_schema(conf = conf)
# Objektide nimekiri
objektid <- c("valga", "matsalu", "lahemaa")
# Objektide piirjooned

# ----------------- Valitud piirkond -----------------
## Piirkonna 'pk'
conn <- ruut::db_connect(conf = conf)
## Valitud objekti indeks
i = 3

## 1. piirkonna piir
pk <- pk_piir(obj = objektid[i])
sf::st_geometry(pk) %>% plot()
## 2. piirkonna epk10t ruudud




## 2. boundarybox
# ----------------- Piirkonna BB leidmine -----------------
## Piirkonna 'pk' Boundary Box.
result <- ruut::pk_bbox(pk, type = 0)
pk_bbox <- sf::read_sf(qgis_output(result, "OUTPUT"))
st_geometry(pk_bbox) %>% plot(border = 2)
st_geometry(pk) %>% plot(add = T, border = "darkblue", lwd = 0.5, lty = 1.8)

# -------------- export bbox to postgis database ---------------
conf$table <- "bbox"
ruut::copy_polygon_to_db(x = result, conf = conf, id = "fid")