ruut/R/db_all_schemas.R

#' List of all database schemas
#'
#' Valitud andmebaasi kõikide schemade nimekiri.
#' @keywords database, schema
#' @export
#' @examples
#' db_all_schemas()
db_all_schemas <- function() {
  conn <- ruut::db_connect()
  all_schemas <- DBI::dbGetQuery(conn, "SELECT SCHEMA_NAME FROM INFORMATION_SCHEMA.SCHEMATA")
  # Disconnect
  lapply(DBI::dbListConnections(RPostgreSQL::PostgreSQL()), DBI::dbDisconnect)
  return(all_schemas$schema_name)
}