modif arguments par defaut des fonctions de commentaires pour unifier le comportement des fonctions

R/commenter_champs.R

@@ -138,7 +138,7 @@ post_dico_attr <- function(dico = NULL, table = NULL, schema = NULL, db = "produ
 #' @importFrom rlang .data
 #'
 
-get_table_comment <- function(table = NULL, schema = NULL, db = "public", user = "does", server = "localhost") {
+get_table_comment <- function(table = NULL, schema = NULL, db = "production", user = "does", server = NULL) {
   # ouverture de la connexion avec DBI::dbDriver("PostgreSQL")
   con <- connect_to_db(db = db, user = user, server = server)
 
@@ -177,7 +177,7 @@ get_table_comment <- function(table = NULL, schema = NULL, db = "public", user =
 #' @importFrom dplyr filter distinct
 #' @importFrom rlang .data
 
-get_cols_comment <- function(table = NULL, schema = NULL, db = "public", user = "does", server = "localhost") {
+get_cols_comment <- function(table = NULL, schema = NULL, db = "production", user = "does", server = NULL) {
 
   # ouverture de la connexion avec DBI::dbDriver("PostgreSQL")
   con <- connect_to_db(db = db, user = user, server = server)
@@ -216,7 +216,7 @@ get_cols_comment <- function(table = NULL, schema = NULL, db = "public", user =
 #' get_table_comments(table = "test_iris", schema = "public", db = "public",
 #'                    user = "does", server = "localhost")
 #'}
-get_table_comments <- function(table = NULL, schema = NULL, db = "public", user = "does", server = "localhost") {
+get_table_comments <- function(table = NULL, schema = NULL, db = "production", user = "does", server = NULL) {
 
   # ouverture de la connexion avec DBI::dbDriver("PostgreSQL")
   con <- connect_to_db(db = db, user = user, server = server)