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