Changes between Initial Version and Version 1 of Recette EcritBilanJournalier

Timestamp:

Oct 23, 2016 9:55:01 PM (8 years ago)

Author:

cedric

Comment:

--

Recette EcritBilanJournalier

@@ +1 @@
+= Ecriture de bilan Journaliers dans la base à l'aide de code =
+
+Retour à ["Recette StacomiR"]
+''' Dernière mise à jour octobre 2016 '''
+''' adaptation stacomir v0.5 '''
+
+[[BR]]
+Pour l'exemple le code ci dessous écrit dans la base de données les bilans journaliers nécessaires aux bilans interannuels, mais il n'y a pas besoin de 
+lancer l'écriture à chaque fois en cliquant sur le bouton lors de bilans migrations. La fonction ''fn_EcritBilanJournalier'' utilise maintenant sqldf qui est bien plus rapide 
+pour écrire dans la base.
+
+
+ {{{
+ # Ecriture rapide de bilans journaliers avec sqldf
+###############################################################################
+
+
+library(stacomiR)
+# package pour str_c (coller ... concatener)
+require(stringr) 
+# lancement de stacomi en mode commande
+stacomi(gr_interface=FALSE,
+                login_window=FALSE,
+                database_expected=TRUE) 
+# creation du bilan migration multiple
+bM=new("BilanMigration")
+# choix de l'annee en boucle
+# Y=2016
+for (Y in 1996:2016){
+        bM=choice_c(bM,
+                        dc=c(16),
+                        taxons=c("Anguilla anguilla"),
+                        stades=c("AGJ"),
+                        datedebut=str_c(Y,"-01-01"),
+                        datefin=str_c(Y,"-12-31"))
+        bM<-charge(bM,silent=TRUE)
+        bM<-connect(bM,silent=TRUE)
+        bM<-calcule(bM,silent=TRUE)
+# si  il y a des données
+        if (nrow(bM@data)>0 ){
+                fn_EcritBilanJournalier(bM,silent=TRUE)
+        }
+}
+
+}}}