ruut/R/db_create_new_schema.R

#' Create the new schema
#'
#' Loome andmebaasi uue schema. Selleks tuleb schema uus nimi lisada conf muutujale. Konfiguratsiooni algväärtused  \code{\link[ruut]{get_config}}.
#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
#' @return New schema created.
#' @seealso [ruut::db_connect()], [ruut::get_config()]
#' @keywords database, schema
#' @export
#' @examples
#' ## Not run:
#' ##
#' ## config <- get_config()
#' ## db_create_new_schema(conf = config)
#' ##
#' ## End(**Not run**)
db_create_new_schema <- function(conf) {
  if (!ruut::db_is_shema_exist(conf$schema)) {
    conn <- ruut::db_connect()
    DBI::dbExecute(conn, sprintf(
      "-- DROP SCHEMA x_matsalu;
CREATE SCHEMA %s AUTHORIZATION %s;", conf$schema, conf$user
    ))
    # Disconnect
    lapply(DBI::dbListConnections(RPostgreSQL::PostgreSQL()), DBI::dbDisconnect)
  }
}
# conf <- ruut::get_config()
# conf$schema <- "x_valga"
# db_create_new_schema(conf)