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