Draft: Resolve "Adapder les drivers de poster_data et importer_data à ecoSQL"

Closes #18 (closed)

R/comment_db.R

@@ -3,6 +3,7 @@
 #' @param db :  base de données dont on recherche le descriptif.
 #' @param user : l'identifiant de l'utilisateur SGBD qui se connecte
 #' @param server : l'adresse IP du serveur, laisser à NULL pour utiliser la variable d'environnement du .Renviron
+#' @param ... eventuels autres arguments de la fonction d'ouverture de connexion `connect_to_db`
 #' @return le commentaire de la bases de données dans un dataframe avec les champs (nom_base, commentaire)
 #'
 #' @export
@@ -12,9 +13,9 @@
 #' @importFrom rlang .data
 
 
-get_db_comment <- function(db = "public", user = "does", server = NULL) {
+get_db_comment <- function(db = "public", user = "does", server = NULL, ...) {
   # Connexion à la base de données
-  con <- datalibaba::connect_to_db(db = db, user = user, server = server)
+  con <- datalibaba::connect_to_db(db = db, user = user, server = server, ...)
 
   # Construction de la requête SQL pour récupérer le commentaire de la base de données
   query <- "SELECT datname AS nom_base, description AS commentaire FROM pg_database JOIN pg_shdescription ON pg_database.oid = pg_shdescription.objoid WHERE datname = current_database();"
@@ -38,15 +39,16 @@ get_db_comment <- function(db = "public", user = "does", server = NULL) {
 #' @param schema : le nom du schema a commenter
 #' @param db : le nom de la base qui contient le schema a commenter
 #' @param user : l'identifiant de l'utilisateur SGBD qui se connecte
+#' @param ... eventuels autres arguments de la fonction d'ouverture de connexion `connect_to_db`
 #' @importFrom attempt stop_if
 #' @importFrom DBI dbDisconnect
 #' @importFrom rpostgis dbComment
 #' @return NULL
 #' @export
-commenter_schema <- function(comment = NULL, schema = NULL, db  = "public", user = "does") {
+commenter_schema <- function(comment = NULL, schema = NULL, db  = "public", user = "does", ...) {
 
-  # ouverture de la connexion avec DBI::dbDriver("PostgreSQL")
-  con <- connect_to_db(db, user)
+  # ouverture de la connexion avec DBI::dbDriver("PostgreSQL") ou  `DBI::dbDriver("PostgreSQL")` si `ecoSQL = TRUE`
+  con <- connect_to_db(db, user, ...)
 
   # verification de la validite des arguments
   attempt::stop_if(comment, is.null, msg = "L'argument comment n\'est pas renseign\u00e9. ")
@@ -67,6 +69,7 @@ commenter_schema <- function(comment = NULL, schema = NULL, db  = "public", user
 #' @param db : Le nom de la base qui contient le schema dont on recherche le descriptif.
 #' @param user : l'identifiant de l'utilisateur SGBD qui se connecte
 #' @param server l'adresse ip du serveur, laisser à NULL pour utiliser le variable d'environnement du .Renviron
+#' @param ... eventuels autres arguments de la fonction d'ouverture de connexion `connect_to_db`
 #' @return le commentaire recherche dans un dataframe de 3 champs (base, nom_schema, commentaire)
 #'
 #' @export
@@ -76,9 +79,9 @@ commenter_schema <- function(comment = NULL, schema = NULL, db  = "public", user
 #' @importFrom rlang .data
 
 
-get_schema_comment <- function(schema = NULL, db = "public", user = "does", server = NULL) {
-  # ouverture de la connexion avec DBI::dbDriver("PostgreSQL")
-  con <- connect_to_db(db = db, user = user, server = server)
+get_schema_comment <- function(schema = NULL, db = "public", user = "does", server = NULL, ...) {
+  # ouverture de la connexion avec DBI::dbDriver("PostgreSQL") ou  `DBI::dbDriver("PostgreSQL")` si `ecoSQL = TRUE`
+  con <- connect_to_db(db = db, user = user, server = server, ...)
 
   # verification de la validite des arguments
   attempt::stop_if(schema, is.null, msg = "L\'argument schema n\'est pas renseign\u00e9. ")