ruut/R/db_all_schemas.R

#' List of all database schemas
#'
#' Andmebaasi kõikide schemade nimekiri.
#' @return A array of all database schemas.
#' @seealso [ruut::db_connect()], [ruut::get_config()]
#' @keywords database, schema
#' @export
#' @examples
#' \dontrun{
#'
#' 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)
}