# Andmebaasi kõikide schema'de nimekiri.
db_all_schemas <- function() {
  source(paste0(getwd(), "/R/db_connect.R"))
  conn <- db_connect()
  all_schemas <- DBI::dbGetQuery(conn, "SELECT SCHEMA_NAME FROM INFORMATION_SCHEMA.SCHEMATA")
  return(all_schemas$schema_name)
}
# db_all_schemas()