#' 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 #' \dontrun{ #' #' config <- get_config() #' db_create_new_schema(conf = config) #' #' } 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)