| 123456789101112 |
- #' Funktsioon: piirkonna piir.
- #' Piirkonna piiri lugemiseks andmebaasist. Piir peab olema varem salvestatud
- #' nimega 'piirkond_piir'.
- pk_piir <- function(obj) {
- # obj - objekti nimetus (näiteks: valga)
- conn <- ruut::db_connect()
- q <- sprintf("SELECT * FROM %s.%s_piir", conf$schema, tolower(obj))
- cat(sprintf("\n-----------------\n%s\n\n", q))
- sf::st_read(conn, query = q)
- }
- # pk_piir(obj = "valga")
|
