Tests pour check_structure_table() + évolution de create_dummy()

R/archive_table.R

@@ -82,6 +82,9 @@ archive_table <- function(host, database, schema, new_schema = NULL, table, role
                                         db_dest = database,
                                         user = role)
 
+  # Fermer la connexion à la base de données
+  DBI::dbDisconnect(connexion)
+
   # Retourner le nom de la nouvelle table archivée
   return(new_table)
 }