Ajout d'un parametre `ecoSQL` à la fonction connect_to_db pour switcher vers...

Ajout d'un parametre ecoSQL à la fonction connect_to_db pour switcher vers un driver adapté à l'offre SGBD ecoSQL

relates #18 (closed)

Closes #18 (closed)

R/get_data.R

@@ -34,6 +34,7 @@ importer_data <- function(table = NULL, schema = NULL, db  = "public", server =
   attempt::stop_if_not(limit, is.numeric, msg = "l'argument user n'est pas num\u00e9rique")
 
   con <- connect_to_db(db = db, user = user, server = server, ...)
+  ecoSQL <- grepl("RPostgres", attributes(class(con)))
   if(ecoSQL) name = DBI::Id(schema = schema, table = table) else name = c(schema, table)
 
   attempt::stop_if_not(DBI::dbExistsTable(conn = con, name = name),