R/post_table_sur_server.R

+library(readxl)
+library(datalibaba)
+
+#chargement de la table depuis T
+chemin_fichier <- "T:/datalab/MECC/MECC_ZAER/PRODUCTION/valorisation/synthese_valeurs_production.xlsx"
+synthese_vals_production <- readxl::read_excel(chemin_fichier, sheet = "synthese")
+
+#Poster de la table synthese_valeurs_production sur le serveur
+datamart = datalibaba::connect_to_db("datamart", user = "csd")
+datalibaba::post_data(
+  con = datamart,
+  data = synthese_vals_production,
+  schema = "zaer",
+  table = "synthese_valeurs_production",
+  overwrite = TRUE
+)
+