diff --git a/DESCRIPTION b/DESCRIPTION index dc3d5b0..d519b61 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: Dmisc Title: Daniel miscellaneous functions -Version: 0.3.10 +Version: 0.3.11 Authors@R: person(given = "Daniel E.", family = "de la Rosa", diff --git a/R/db_connect.R b/R/db_connect.R index a9e7a64..0b3f000 100644 --- a/R/db_connect.R +++ b/R/db_connect.R @@ -58,25 +58,33 @@ db_connect <- function(db_user = NULL, if (db_sys == 'SQL Server') { rlang::check_installed("odbc") - DBI::dbConnect(odbc::odbc(), + conn <- DBI::dbConnect(odbc::odbc(), Driver = "ODBC Driver 17 for SQL Server", Server = db_host, Database = db_name, Trusted_Connection = trusted_connection, ... ) + + return(conn) } if (db_sys == "PostgreSQL") { rlang::check_installed("RPostgres") - DBI::dbConnect(RPostgres::Postgres(), + conn <- DBI::dbConnect(RPostgres::Postgres(), dbname = db_name, host = db_host, port = db_port, user = uname, password = pass ) + + return(conn) } + + stop(cli::cli_alert_error( + paste0("El sistema de base de datos '", db_sys, "' no está soportado.") + ), call. = FALSE) }