| 1 | # Nom fichier : init.R |
|---|
| 2 | # Projet : EDA/EDAcommun |
|---|
| 3 | |
|---|
| 4 | # initiation des parametres en fonctions des utilisateurs |
|---|
| 5 | rm(list=ls(all=TRUE)) |
|---|
| 6 | # le fichier XML doit se trouver dans le répertoire d'EDA qui est chargé au départ |
|---|
| 7 | # à l'aide de la définion du working directory de la commande run d'éclipse |
|---|
| 8 | # fonction de chargement des packages (pour l'instant j'y ai mis XML |
|---|
| 9 | libraries=function() { |
|---|
| 10 | necessary = c('XML') |
|---|
| 11 | if(!all(necessary %in% installed.packages()[, 'Package'])) |
|---|
| 12 | install.packages(necessary[!necessary %in% installed.packages()[, 'Package']], dep = T) |
|---|
| 13 | require('XML') |
|---|
| 14 | } |
|---|
| 15 | libraries() |
|---|
| 16 | # Ce fichier doit être à la racine de EDA |
|---|
| 17 | filexml="EDAload.xml" |
|---|
| 18 | doc = xmlInternalTreeParse(filexml) |
|---|
| 19 | doc=xmlRoot(doc) # vire les infos d'ordre generales |
|---|
| 20 | tableau_config = xmlSApply(doc, function(x) xmlSApply(x, xmlValue)) # renvoit une liste |
|---|
| 21 | |
|---|
| 22 | les_utilisateurs <- tableau_config[1] |
|---|
| 23 | datawd=tableau_config["datawd",] |
|---|
| 24 | #assign("datawd",datawd,envir=.GlobalEnv) |
|---|
| 25 | pgwd=tableau_config["pgwd",] |
|---|
| 26 | baseODBCOracle=c(tableau_config["lienODBCOracle",],tableau_config["uidOracle",],tableau_config["pwdOracle",]) |
|---|
| 27 | baseODBC=c(tableau_config["lienODBCBar",],tableau_config["uidBar",],tableau_config["pwdBar",]) |
|---|
| 28 | setwd(pgwd) |
|---|
| 29 | |
|---|
| 30 | source("EDAcommun/prg/init/libraries.R") |
|---|
| 31 | source("EDAcommun/prg/init/utilitaires.R") # version débuggée de progress |
|---|
| 32 | # chargement des fonctions nécessaires pour les requètes |
|---|
| 33 | # fonction de connection à la base pour envoi d'une requète sql |
|---|
| 34 | source("EDAcommun/prg/peche/fn_sql_0.R") |
|---|
| 35 | #fonction pour lire les objets de type sql, et renvoyer une requète |
|---|
| 36 | source("EDAcommun/prg/peche/fn_sql_readsql.R") |
|---|
| 37 | # transformation du vecteur de codes génériques en liste qui puisse être comprise |
|---|
| 38 | # en sql |
|---|
| 39 | source("EDAcommun/prg/peche/vector_to_listsql.r") |
|---|
| 40 | options(stringsAsFactors=FALSE) |
|---|
