Ajout du paramètre host et modification de l'exemple

R/modify_column_type.R

 
 #' Modifie le type d'une colonne dans une table PostgreSQL
 #'
-#' @description Cette fonction permet de modifier le type d'une colonne dans 
-#' une table PostgreSQL en utilisant une connexion valide à la base de données. 
+#' @description Cette fonction permet de modifier le type d'une colonne dans
+#' une table PostgreSQL en utilisant une connexion valide à la base de données.
 #' Le rôle doit être propriétaire de la table.
 #'
+#' @param host Hôte de la base de données PostgreSQL.
 #' @param database Nom de la base de données.
 #' @param schema Le schéma de la table où la colonne doit être modifiée.
 #' @param table Le nom de la table où la colonne doit être modifiée.
@@ -15,34 +16,41 @@
 #' @return Retourne TRUE si la modification a été effectuée avec succès.
 #'
 #' @importFrom datalibaba connect_to_db
-#' @importFrom RPostgreSQL dbConnect dbDisconnect 
+#' @importFrom RPostgreSQL dbConnect dbDisconnect
 #' @importFrom DBI dbExecute
 #'
 #' @export
 #' @examples
 #' \dontrun{
+#' # Créer une table dummy dans le schéma collectr de la base production
+#' create_dummy(host = "localhost",
+#'              database = "collectr",
+#'              schema = "public",
+#'              table = "dummy",
+#'              role = "runner")
 #' # Utilisation de la fonction modify_column_type()
-#' modify_column_type(database = "si_eau",
-#'                    schema = "nitrates",
-#'                    table = "nitrate_data_analyse_ars_2022",
-#'                    column_name = "plv_date ",
+#' modify_column_type(database = "collectr",
+#'                    schema = "public",
+#'                    table = "dummy",
+#'                    column_name = "birthdate",
 #'                    column_type = "date",
-#'                    role = "admin")
+#'                    role = "runner")
 #' }
-modify_column_type <- function(database, schema, table, column_name, 
+modify_column_type <- function(host, database, schema, table, column_name,
                                column_type, role) {
   # Se connecter à la base de données PostgreSQL
-  connexion <- datalibaba::connect_to_db(db = database, 
-                                         user = role, 
+  connexion <- datalibaba::connect_to_db(server = host,
+                                         db = database,
+                                         user = role,
                                          ecoSQL = FALSE)
-  
+
   # Vérifier si la connexion est une connexion PostgreSQL valide
   if (!inherits(connexion, "PostgreSQLConnection")) {
     stop("La connexion fournie n\'est pas une connexion PostgreSQL valide.")
   }
-  
+
   # Vérifier si la table existe dans le schéma
-  if (!table_exists(database = database, schema = schema, table = table, role = role)) {
+  if (!table_exists(host = host, database = database, schema = schema, table = table, role = role)) {
     stop("La table sp\u00e9cifi\u00e9e n\'existe pas dans la base de donn\u00e9es.")
   }
 
@@ -51,12 +59,12 @@ modify_column_type <- function(database, schema, table, column_name,
                         " ALTER COLUMN ", column_name,
                         " TYPE ", column_type,
                         " USING ", column_name, "::", column_type)
-  
+
   # Exécuter la requête ALTER TABLE
   dbExecute(connexion, alter_query)
 
   # Fermer la connexion à la base de données
   dbDisconnect(connexion)
-  
+
   return(TRUE)
 }