ruut/R/db_is_shema_exist.R

# Kas schema eksisteerib.
db_is_shema_exist <- function(schema = NULL) {
  source(paste0(getwd(), "/R/db_all_schemas.R"))
  if (schema %in% db_all_schemas()) {
    TRUE
  } else {
    FALSE
  }
}
# db_is_shema_exist(schema = "x_matsalu")