#24 petites corrections dans la fonction

R/commenter_table.R

@@ -80,11 +80,12 @@ commenter_schema <- function(comment = NULL, schema = NULL, db  = "public", user
 #' @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
 #' @return le commentaire recherche dans un dataframe de 3 champs (base, nom_schema, commentaire)
+#'
 #' @export
 #' @importFrom attempt stop_if_not stop_if
 #' @importFrom DBI dbGetQuery
 #' @importFrom dplyr transmute
-#'
+#' @importFrom rlang .data
 
 
 get_schema_comment <- function(schema = NULL, db = "public", user = "does", server = NULL) {
@@ -92,8 +93,8 @@ get_schema_comment <- function(schema = NULL, db = "public", user = "does", serv
   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.")
-  attempt::stop_if_not(schema %in% list_schemas(con), msg = glue::glue("Il n\'y a pas de schema {schema} dans la base de données. "))
+  attempt::stop_if(schema, is.null, msg = "L\'argument schema n\'est pas renseign\u00e9. ")
+  attempt::stop_if_not(schema %in% list_schemas(con), msg = glue::glue("Il n\'y a pas de schema {schema} dans la base de donn\u00e9es. "))
 
   # construction de la requete sql
   query <-  paste0("SELECT obj_description('", schema, "'::regnamespace) AS commentaire;")
@@ -107,5 +108,3 @@ get_schema_comment <- function(schema = NULL, db = "public", user = "does", serv
 
   return(com)
 }
-
-