[Stacomir-commits] r247 - in pkg/stacomir: . R inst/config inst/examples po

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Jan 25 17:57:25 CET 2017


Author: briand
Date: 2017-01-25 17:57:25 +0100 (Wed, 25 Jan 2017)
New Revision: 247

Added:
   pkg/stacomir/inst/config/generate_message.r
   pkg/stacomir/po/
   pkg/stacomir/po/R-stacomiR.pot
Modified:
   pkg/stacomir/R/BilanAgedemer.r
   pkg/stacomir/R/BilanAnnuels.r
   pkg/stacomir/R/BilanArgentee.r
   pkg/stacomir/R/BilanConditionEnv.r
   pkg/stacomir/R/BilanEspeces.r
   pkg/stacomir/R/BilanFonctionnementDC.r
   pkg/stacomir/R/BilanFonctionnementDF.r
   pkg/stacomir/R/BilanMigration.r
   pkg/stacomir/R/BilanMigrationConditionEnv.r
   pkg/stacomir/R/BilanMigrationInterAnnuelle.r
   pkg/stacomir/R/BilanMigrationMult.r
   pkg/stacomir/R/BilanMigrationPar.r
   pkg/stacomir/R/BilanOperation.r
   pkg/stacomir/R/Bilan_carlot.r
   pkg/stacomir/R/Bilan_poids_moyen.r
   pkg/stacomir/R/Bilan_stades_pigm.r
   pkg/stacomir/R/Bilan_taille.r
   pkg/stacomir/R/PasDeTempsJournalier.r
   pkg/stacomir/R/PasdeTemps.r
   pkg/stacomir/R/RefAnnee.r
   pkg/stacomir/R/RefDC.r
   pkg/stacomir/R/RefDF.r
   pkg/stacomir/R/RefStades.r
   pkg/stacomir/R/RefStationMesure.r
   pkg/stacomir/R/RefTaxon.r
   pkg/stacomir/R/Refpar.r
   pkg/stacomir/R/Refparqual.r
   pkg/stacomir/R/fn_EcritBilanMensuel.r
   pkg/stacomir/R/funSousListeBilanMigrationPar.r
   pkg/stacomir/R/fungraph.r
   pkg/stacomir/R/fungraph_civelle.r
   pkg/stacomir/R/fungraph_env.r
   pkg/stacomir/R/funstat.r
   pkg/stacomir/R/funtable.r
   pkg/stacomir/R/funtraitement_poids.r
   pkg/stacomir/R/interface_BilanAgedemer.r
   pkg/stacomir/R/interface_BilanAnnuels.r
   pkg/stacomir/R/interface_BilanArgentee.r
   pkg/stacomir/R/interface_BilanConditionEnv.r
   pkg/stacomir/R/interface_BilanFonctionnementDC.r
   pkg/stacomir/R/interface_BilanFonctionnementDF.r
   pkg/stacomir/R/interface_BilanMigration.r
   pkg/stacomir/R/interface_BilanMigrationConditionEnv.r
   pkg/stacomir/R/interface_BilanMigrationInterannuelle.r
   pkg/stacomir/R/interface_BilanMigrationMult.r
   pkg/stacomir/R/interface_BilanMigrationPar.r
   pkg/stacomir/R/interface_Bilan_carlot.r
   pkg/stacomir/R/interface_Bilan_taille.r
   pkg/stacomir/R/interface_bilan_poids_moyen.r
   pkg/stacomir/R/stacomi.r
   pkg/stacomir/inst/examples/bilanAgedemer_example.R
Log:


Modified: pkg/stacomir/R/BilanAgedemer.r
===================================================================
--- pkg/stacomir/R/BilanAgedemer.r	2017-01-24 15:03:56 UTC (rev 246)
+++ pkg/stacomir/R/BilanAgedemer.r	2017-01-25 16:57:25 UTC (rev 247)
@@ -87,7 +87,7 @@
 					" AND car_par_code in ", vector_to_listsql(object at par@par_selectionne), sep="")
 			requete<-stacomirtools::connect(requete) 
 			object at data<-requete at query
-			if (!silent) funout(get("msg",envir_stacomi)$BilanAgedemer.1)
+			if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanAgedemer.1))
 			return(object)
 		})
 
@@ -106,34 +106,34 @@
 			if (exists("refDC",envir_stacomi)) {
 				object at dc<-get("refDC",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.1,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.1),arret=TRUE)
 			} 
 			if (exists("refTaxon",envir_stacomi)) {
 				object at taxons<-get("refTaxon",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.2,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.2),arret=TRUE)
 			}
 			if (exists("refStades",envir_stacomi)) {
 				object at stades<-get("refStades",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.3,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.3),arret=TRUE)
 			}
 			if (exists("refpar",envir_stacomi)) {
 				object at par<-get("refpar",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.4,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.4),arret=TRUE)
 			}		
 			# rem pas tres satisfaisant car ce nom est choisi dans l'interface
 			if (exists("bilan_adm_date_debut",envir_stacomi)) {
 				object at horodatedebut@horodate<-get("bilan_adm_date_debut",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.5,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.5),arret=TRUE)
 			}
 			# rem id
 			if (exists("bilan_adm_date_fin",envir_stacomi)) {
 				object at horodatefin@horodate<-get("bilan_adm_date_fin",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.6,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.6),arret=TRUE)
 			}       
 			
 			return(object)
@@ -187,12 +187,12 @@
 			bilan_adm at par<-choice_c(bilan_adm at par,par,silent=silent)
 			bilan_adm at horodatedebut<-choice_c(object=bilan_adm at horodatedebut,
 					nomassign="bilan_adm_date_debut",
-					funoutlabel=get("msg",envir=envir_stacomi)$interface_Bilan_lot.5,
+					funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.5),
 					horodate=horodatedebut, 
 					silent=silent)
 			bilan_adm at horodatefin<-choice_c(bilan_adm at horodatefin,
 					nomassign="bilan_adm_date_fin",
-					funoutlabel=get("msg",envir=envir_stacomi)$interface_Bilan_lot.6,
+					funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
 					horodate=horodatefin,
 					silent=silent)
 			bilan_adm at limit1hm<-choice_c(bilan_adm at limit1hm,as.character(limit1hm))
@@ -253,7 +253,7 @@
 			if (exists("bilan_adm",envir_stacomi)) {
 				bilan_adm<-get("bilan_adm",envir_stacomi)
 			} else {      
-				if (!silent) funout(get("msg",envir_stacomi)$BilanMigration.5,arret=TRUE)
+				if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigration.5),arret=TRUE)
 			}
 			dat<-bilan_adm at calcdata[["data"]]
 			# cols are using viridis::inferno(6,alpha=0.9)
@@ -307,7 +307,7 @@
 			if (exists("bilan_adm",envir_stacomi)) {
 				bilan_adm<-get("bilan_adm",envir_stacomi)
 			} else {      
-				if (!silent) funout(get("msg",envir_stacomi)$BilanMigration.5,arret=TRUE)
+				if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigration.5),arret=TRUE)
 			}
 			dat<-bilan_adm at calcdata[["data"]]		
 			ndc=unique(dat$ope_dic_identifiant)
@@ -320,14 +320,14 @@
 				dc<-as.character(unique(datdc$ope_dic_identifiant))
 				result[[dc]]<-list()
 				result[[dc]][["ouvrage"]]<-ouvrage
-				print(noquote(stringr::str_c("Age tatistics for dam : ",ouvrage," CD=",dc_code)))
+				print(noquote(stringr::str_c("Age Statistics for dam : ",ouvrage," CD=",dc_code)))
 				print(noquote("========================"))
 				print(table(datdc$age))		
 				result[[dc]][["age"]]<-table(datdc$age)
 				
 			}
 			if (length(ndc)>1){
-				print(noquote(stringr::str_c("Age tatistics total")))
+				print(noquote(stringr::str_c("Age Statistics total")))
 				print(noquote("========================"))
 				print(table(dat$age))		
 				
@@ -412,7 +412,7 @@
 						
 						
 						if (!silent){
-							funout(paste(get("msg",envir=envir_stacomi)$fn_EcritBilanJournalier.5,annee,"\n"))
+							funout(paste(gettext(get("msg",envir=envir_stacomi)$fn_EcritBilanJournalier.5,annee,"\n")))
 						}
 # si l'utilisateur accepte de remplacer les valeurs				
 #progres<-get("progres",envir=envir_stacomi)
@@ -429,9 +429,9 @@
 					if (nrow(bil at data)>0)
 					{ 
 						if (!silent){
-							choice<-gWidgets::gconfirm(paste(get("msg",envir=envir_stacomi)$fn_EcritBilanJournalier.1, # Un bilan a deja ete ecrit dans la base
+							choice<-gWidgets::gconfirm(paste(gettext(get("msg",envir=envir_stacomi)$fn_EcritBilanJournalier.1), # Un bilan a deja ete ecrit dans la base)
 											unique(bil at data$bjo_horodateexport),
-											get("msg",envir=envir_stacomi)$fn_EcritBilanJournalier.2),
+											gettext(get("msg",envir=envir_stacomi)$fn_EcritBilanJournalier.2)),
 									handler=hconfirm) # voulez vous le remplacer ?
 						} else {
 							hconfirm(h=NULL)
@@ -456,7 +456,7 @@
 								))		
 #	
 						
-						if (!silent) funout(paste(get("msg",envir=envir_stacomi)$fn_EcritBilanJournalier.5,"\n"))
+						if (!silent) funout(paste(gettext(get("msg",envir=envir_stacomi)$fn_EcritBilanJournalier.5,"\n")))
 						taxon= as.character(bilanMigration at taxons@data$tax_nom_latin)
 						stade= as.character(bilanMigration at stades@data$std_libelle)
 						DC=as.numeric(bilanMigration at dc@dc_selectionne)	
@@ -518,7 +518,7 @@
 	bilan_adm<-connect(bilan_adm)
 	vue_ope_lot=bilan_adm at requete@query # on recupere le data.frame
 	assign("bilan_adm",bilan_adm,envir_stacomi)#assign("bilan_adm",vue_ope_lot,envir_stacomi)
-	funout(get("msg",envir_stacomi)$BilanAgedemer.3)
+	funout(gettext(get("msg",envir_stacomi)$BilanAgedemer.3))
 	vue_ope_lot[is.na(vue_ope_lot)]<-""
 	vue_ope_lot$ope_date_debut=as.character(vue_ope_lot$ope_date_debut)
 	vue_ope_lot$ope_date_fin=as.character(vue_ope_lot$ope_date_fin)   

Modified: pkg/stacomir/R/BilanAnnuels.r
===================================================================
--- pkg/stacomir/R/BilanAnnuels.r	2017-01-24 15:03:56 UTC (rev 246)
+++ pkg/stacomir/R/BilanAnnuels.r	2017-01-25 16:57:25 UTC (rev 247)
@@ -43,31 +43,31 @@
 			if (exists("refDC",envir_stacomi)) {
 				bilA at dc<-get("refDC",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.1,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.1),arret=TRUE)
 			}
 			if (exists("refTaxon",envir_stacomi)) {
 				bilA at taxons<-get("refTaxon",envir_stacomi)
 			} else {      
-				funout(get("msg",envir_stacomi)$ref.2,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.2),arret=TRUE)
 			}
 			if (exists("refStades",envir_stacomi)){
 				bilA at stades<-get("refStades",envir_stacomi)
 			} else 
 			{
-				funout(get("msg",envir_stacomi)$ref.3,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.3),arret=TRUE)
 			}
 			if (exists("anneedebut",envir_stacomi)) {
 				bilA at anneedebut<-get("anneedebut",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.10,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.10),arret=TRUE)
 			}  	
 			if (exists("anneefin",envir_stacomi)) {
 				bilA at anneefin<-get("anneefin",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.11,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.11),arret=TRUE)
 			}
 			assign("bilanAnnuels",bilA,envir_stacomi)
-			funout(get("msg",envir_stacomi)$BilanAnnuels.1)
+			funout(gettext(get("msg",envir_stacomi)$BilanAnnuels.1))
 			return(bilA)
 			
 			
@@ -420,7 +420,7 @@
 								theme_bw() 
 						print(g)
 						assign("g",g,envir_stacomi)
-						if (!silent) funout(get("msg",envir_stacomi)$BilanMigrationPar.6)
+						if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
 						
 					} else if (length(lestax)==1 & length(lesstd)==1){
 						
@@ -429,7 +429,7 @@
 								theme_bw() 
 						print(g)
 						assign("g",g,envir_stacomi)
-						if (!silent) funout(get("msg",envir_stacomi)$BilanMigrationPar.6)
+						if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
 						
 					} else if (length(lestax)==1 & length(lesdic)==1){
 						
@@ -438,7 +438,7 @@
 								theme_bw() 
 						print(g)
 						assign("g",g,envir_stacomi)
-						if (!silent) funout(get("msg",envir_stacomi)$BilanMigrationPar.6)
+						if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
 						
 					} else if (length(lesdic)==1 & length(lesstd)==1){
 						
@@ -447,7 +447,7 @@
 								theme_bw() 
 						print(g)
 						assign("g",g,envir_stacomi)
-						if (!silent) funout(get("msg",envir_stacomi)$BilanMigrationPar.6)
+						if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
 						
 						
 					} else if (length(lestax)==1){
@@ -457,7 +457,7 @@
 								theme_bw() 
 						print(g)
 						assign("g",g,envir_stacomi)
-						if (!silent) funout(get("msg",envir_stacomi)$BilanMigrationPar.6)
+						if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
 						
 					} else if (length(lesstd)==1){
 						
@@ -466,7 +466,7 @@
 								theme_bw() 
 						print(g)
 						assign("g",g,envir_stacomi)
-						if (!silent) funout(get("msg",envir_stacomi)$BilanMigrationPar.6)
+						if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
 						
 					} else if (length(lesdic)==1){
 						
@@ -475,7 +475,7 @@
 								theme_bw() 
 						print(g)
 						assign("g",g,envir_stacomi)
-						if (!silent) funout(get("msg",envir_stacomi)$BilanMigrationPar.6)							
+						if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))							
 						
 					} else {
 						if (length(lesdic)<3){
@@ -493,7 +493,7 @@
 							print(g)	
 							
 							assign("g",g,envir_stacomi)
-							if (!silent) funout(get("msg",envir_stacomi)$BilanMigrationPar.6)	
+							if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))	
 						}
 					}
 				}

Modified: pkg/stacomir/R/BilanArgentee.r
===================================================================
--- pkg/stacomir/R/BilanArgentee.r	2017-01-24 15:03:56 UTC (rev 246)
+++ pkg/stacomir/R/BilanArgentee.r	2017-01-25 16:57:25 UTC (rev 247)
@@ -82,7 +82,7 @@
 					" AND car_par_code in ", vector_to_listsql(object at par@par_selectionne), sep="")
 			requete<-stacomirtools::connect(requete) 
 			object at data<-requete at query
-			if (!silent) funout(get("msg",envir_stacomi)$BilanArgentee.1)
+			if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanArgentee.1))
 			return(object)
 		})
 
@@ -101,34 +101,34 @@
 			if (exists("refDC",envir_stacomi)) {
 				object at dc<-get("refDC",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.1,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.1),arret=TRUE)
 			} 
 			if (exists("refTaxon",envir_stacomi)) {
 				object at taxons<-get("refTaxon",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.2,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.2),arret=TRUE)
 			}
 			if (exists("refStades",envir_stacomi)) {
 				object at stades<-get("refStades",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.3,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.3),arret=TRUE)
 			}
 			if (exists("refpar",envir_stacomi)) {
 				object at par<-get("refpar",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.4,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.4),arret=TRUE)
 			}		
 			# rem pas tres satisfaisant car ce nom est choisi dans l'interface
 			if (exists("bilan_arg_date_debut",envir_stacomi)) {
 				object at horodatedebut@horodate<-get("bilan_arg_date_debut",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.5,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.5),arret=TRUE)
 			}
 			# rem id
 			if (exists("bilan_arg_date_fin",envir_stacomi)) {
 				object at horodatefin@horodate<-get("bilan_arg_date_fin",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.6,arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$ref.6),arret=TRUE)
 			}       
 			
 			return(object)
@@ -176,12 +176,12 @@
 			bilanArg at par<-choice_c(bilanArg at par,par,silent=silent)
 			bilanArg at horodatedebut<-choice_c(object=bilanArg at horodatedebut,
 					nomassign="bilanArg_date_debut",
-					funoutlabel=get("msg",envir=envir_stacomi)$interface_Bilan_lot.5,
+					funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.5),
 					horodate=horodatedebut, 
 					silent=silent)
 			bilanArg at horodatefin<-choice_c(bilanArg at horodatefin,
 					nomassign="bilanArg_date_fin",
-					funoutlabel=get("msg",envir=envir_stacomi)$interface_Bilan_lot.6,
+					funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
 					horodate=horodatefin,
 					silent=silent)
 			validObject(bilanArg)
@@ -198,7 +198,7 @@
 			#bilanArg<-b_carlot
 			bilanArg<-object
 			if(nrow(bilanArg at data)==0) {
-				funout(get("msg",envir_stacomi)$BilanArgentee.2, arret=TRUE)
+				funout(gettext(get("msg",envir_stacomi)$BilanArgentee.2, arret=TRUE))
 			}   
 			arg=bilanArg at data # on recupere le data.frame
 			
@@ -288,7 +288,7 @@
 			if (exists("bilanArg",envir_stacomi)) {
 				bilanArg<-get("bilanArg",envir_stacomi)
 			} else {      
-				if (!silent) funout(get("msg",envir_stacomi)$BilanMigration.5,arret=TRUE)
+				if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigration.5),arret=TRUE)
 			}
 			dat<-bilanArg at calcdata
 			# cols are using viridis::inferno(6,alpha=0.9)
@@ -347,10 +347,10 @@
 						group=stage,			
 						type = c("p"),
 						par.settings = my.settings,
-						xlab=get("msg",envir=envir_stacomi)$BilanArgentee.3, # size (BL) mm
-						ylab=get("msg",envir=envir_stacomi)$BilanArgentee.4, # "Mean eye diameter (MD mm)
+						xlab=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.3), # size (BL) mm)
+						ylab=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.4), # "Mean eye diameter (MD mm))
 						par.strip.text=list(col="white", font=2),
-						auto.key=list(title=get("msg",envir=envir_stacomi)$BilanArgentee.5, # Silvering stages (Durif et al. 2009)
+						auto.key=list(title=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.5), # Silvering stages (Durif et al. 2009))
 								cex.title=1.2,
 								space="top",
 								columns=6,
@@ -402,10 +402,10 @@
 				
 				bb<-lattice::barchart(form,data=datdc1,	
 						group=stage,		
-						xlab=get("msg",envir=envir_stacomi)$BilanArgentee.6, # "Mois",
-						ylab=get("msg",envir=envir_stacomi)$BilanArgentee.7,#"Effectif"
+						xlab=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.6), # "Mois"),
+						ylab=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.7),#"Effectif")
 						par.strip.text=list(col="white", font=2),
-						auto.key=list(title=get("msg",envir=envir_stacomi)$BilanArgentee.8,#"Effectif par stades",
+						auto.key=list(title=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.8),#"Effectif par stades"),
 								cex.title=1.2,
 								space="top",
 								columns=6,
@@ -521,8 +521,8 @@
 				#############
 				par(mar=c(5.1,4.1,1,1)) # blur bottom left up right
 				plot(datdc$BL,datdc$W,type="n",
-						xlab=get("msg",envir=envir_stacomi)$BilanArgentee.9,
-						ylab=get("msg",envir=envir_stacomi)$BilanArgentee.10,
+						xlab=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.9),
+						ylab=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.10),
 						xlim=c(250,1000),ylim=c(0,2000))
 				abline(v=seq(250,1000,by=50), col = "lightgray",lty=2)
 				abline(h=seq(0,2000,by=100),col="lightgray",lty=2)
@@ -605,7 +605,7 @@
 			if (exists("bilanArg",envir_stacomi)) {
 				bilanArg<-get("bilanArg",envir_stacomi)
 			} else {      
-				if (!silent) funout(get("msg",envir_stacomi)$BilanMigration.5,arret=TRUE)
+				if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigration.5),arret=TRUE)
 			}
 			dat<-bilanArg at calcdata
 			# cols are using viridis::inferno(6,alpha=0.9)
@@ -703,7 +703,7 @@
 	bilanArg<-connect(bilanArg)
 	vue_ope_lot=bilanArg at requete@query # on recupere le data.frame
 	assign("bilanArg",bilanArg,envir_stacomi)#assign("bilanArg",vue_ope_lot,envir_stacomi)
-	funout(get("msg",envir_stacomi)$BilanArgentee.3)
+	funout(gettext(get("msg",envir_stacomi)$BilanArgentee.3))
 	vue_ope_lot[is.na(vue_ope_lot)]<-""
 	vue_ope_lot$ope_date_debut=as.character(vue_ope_lot$ope_date_debut)
 	vue_ope_lot$ope_date_fin=as.character(vue_ope_lot$ope_date_fin)   

Modified: pkg/stacomir/R/BilanConditionEnv.r
===================================================================
--- pkg/stacomir/R/BilanConditionEnv.r	2017-01-24 15:03:56 UTC (rev 246)
+++ pkg/stacomir/R/BilanConditionEnv.r	2017-01-25 16:57:25 UTC (rev 247)
@@ -74,7 +74,7 @@
 			requete at and=paste(" AND env_stm_identifiant IN ",tmp )			
 			requete<-stacomirtools::connect(requete)			
 			object at data<-stacomirtools::killfactor(requete at query)
-			funout(get("msg",envir=envir_stacomi)$BilanCondtionEnv.1)
+			funout(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.1))
 			return(object)
 		}
 )
@@ -89,19 +89,19 @@
 			if (exists("refStationMesure",envir_stacomi)) {
 				object at stationMesure<-get("refStationMesure",envir_stacomi)
 			} else {
-				funout(get("msg",envir=envir_stacomi)$BilanCondtionEnv.2,arret=TRUE)
+				funout(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.2),arret=TRUE)
 			}     
 			
 			if (exists("bilanConditionEnv_date_debut",envir_stacomi)) {
 				object at datedebut<-get("bilanConditionEnv_date_debut",envir_stacomi)@horodate
 			} else {
-				funout(get("msg",envir=envir_stacomi)$ref.5,arret=TRUE)
+				funout(gettext(get("msg",envir=envir_stacomi)$ref.5),arret=TRUE)
 			}
 			
 			if (exists("bilanConditionEnv_date_fin",envir_stacomi))  {
 				object at datefin<-get("bilanConditionEnv_date_fin",envir_stacomi)@horodate
 			}else {
-				funout(get("msg",envir=envir_stacomi)$ref.6,arret=TRUE)
+				funout(gettext(get("msg",envir=envir_stacomi)$ref.6),arret=TRUE)
 			}      		
 			object<-connect(object)
 			return(object)
@@ -130,7 +130,7 @@
 		lesGraphes=list()
 		if(length(unique(dat$env_stm_identifiant))!= nrow(bilanConditionEnv at stationMesure@data))
 		{
-			funout(get("msg",envir=envir_stacomi)$BilanCondtionEnv.3)
+			funout(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.3))
 		}
 		
 		# pour toutes les stations de mesure selectionnees
@@ -163,7 +163,7 @@
 	}
 	else
 	{
-		funout(get("msg",envir=envir_stacomi)$BilanCondtionEnv.4,arret=TRUE);
+		funout(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.4),arret=TRUE)
 	}	
 	return (lesGraphes)
 }   
@@ -177,12 +177,12 @@
 	dat<-bilanConditionEnv at data
 	dat<-stacomirtools::chnames(dat,"env_stm_identifiant","stm_identifiant")
 	dat<-merge(dat,bilanConditionEnv at stationMesure@data,by="stm_identifiant")
-	funout(get("msg",envir=envir_stacomi)$BilanCondtionEnv.5)
+	funout(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.5))
 	liste = tapply(dat$env_valeur_quantitatif,dat$stm_libelle,summary)
 	for (i in names(liste)){
 		funout(paste(" station",i,":\nMin  ; 1st Qu.;  Median  ;    Mean   ; 3rd Qu.  ;     Max   ;    Na's  ) = \n",paste(liste[[i]],collapse="   ;   "),"\n"))
 	}
 	path=file.path(path.expand(get("datawd",envir=envir_stacomi)),paste("env_cond.csv",sep=""),fsep ="\\")
 	write.table(dat,path,sep=';',row.names=FALSE)
-	funout(paste(get("msg",envir=envir_stacomi)$funtable.1,path,"\n"))
+	funout(paste(gettext(get("msg",envir=envir_stacomi)$funtable.1,path,"\n")))
 }

Modified: pkg/stacomir/R/BilanEspeces.r
===================================================================
--- pkg/stacomir/R/BilanEspeces.r	2017-01-24 15:03:56 UTC (rev 246)
+++ pkg/stacomir/R/BilanEspeces.r	2017-01-25 16:57:25 UTC (rev 247)
@@ -85,7 +85,7 @@
 					" AND lot_effectif IS NOT NULL",
 					sep="")
 			requete<-stacomirtools::connect(requete)	
-			if (requete at etat!="Requete reussie \n") funout(get("msg",envir=envir_stacomi)$BilanEspeces.3,arret=TRUE)
+			if (requete at etat!="Requete reussie \n") funout(gettext(get("msg",envir=envir_stacomi)$BilanEspeces.3),arret=TRUE)
 			bilanEspeces at data<-requete at query					
 			return(bilanEspeces)
 		})
@@ -109,34 +109,34 @@
 #' @author Cedric Briand \email{cedric.briand"at"eptb-vilaine.fr}
 #' @export
 setMethod("charge",signature=signature("BilanEspeces"),definition=function(object){
-			funout(get("msg",envir_stacomi)$BilanEspeces.7)
+			funout(gettext(get("msg",envir_stacomi)$BilanEspeces.7))
 			bilanEspeces<-object
 			if (exists("refDC",envir_stacomi)) {
 				bilanEspeces at dc<-get("refDC",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.1,arret=TRUE)	
+				funout(gettext(get("msg",envir_stacomi)$ref.1),arret=TRUE)	
 			}
 			# rem pas tres satisfaisant car ce nom est choisi dans l'interface
 			if (exists("bilanEspeces_date_debut",envir_stacomi)) {
 				bilanEspeces at datedebut<-get("bilanEspeces_date_debut",envir_stacomi)@horodate
 			} else {
-				funout(get("msg",envir=envir_stacomi)$ref.5,arret=TRUE)
+				funout(gettext(get("msg",envir=envir_stacomi)$ref.5),arret=TRUE)
 			}
 			# rem id
 			if (exists("bilanEspeces_date_fin",envir_stacomi)) {
 				bilanEspeces at datefin<-get("bilanEspeces_date_fin",envir_stacomi)@horodate
 			} else {
-				funout(get("msg",envir=envir_stacomi)$ref.6,arret=TRUE)
+				funout(gettext(get("msg",envir=envir_stacomi)$ref.6),arret=TRUE)
 			} 
 			if (exists("refliste",envir_stacomi)) {      
 				bilanEspeces at liste<-get("refliste",envir_stacomi)      
 			} else {      
-				funout(get("msg",envir_stacomi)$ref.9, arret=TRUE)             
+				funout(gettext(get("msg",envir_stacomi)$ref.9, arret=TRUE))             
 			} 
 			bilanEspeces<-connect(bilanEspeces)
 			
 			assign("bilanEspeces",bilanEspeces,envir_stacomi)
-			funout(get("msg",envir_stacomi)$BilanEspeces.1)
+			funout(gettext(get("msg",envir_stacomi)$BilanEspeces.1))
 		})
 
 
@@ -152,14 +152,14 @@
 	if (exists("bilanEspeces",envir_stacomi)) {
 		bilanEspeces<-get("bilanEspeces",envir_stacomi)
 	} else {      
-		funout(get("msg",envir_stacomi)$BilanEspeces.4,arret=TRUE)
+		funout(gettext(get("msg",envir_stacomi)$BilanEspeces.4),arret=TRUE)
 	}
 	DC=as.numeric(bilanEspeces at dc@dc_selectionne)	
 	# update of refliste which does not need calcul button pushed
 	bilanEspeces at liste<-get("refliste",envir_stacomi)   
 	
 	tableEspeces=bilanEspeces at data
-	if (nrow(tableEspeces)==0) funout(get("msg",envir_stacomi)$BilanEspeces.5,arret=TRUE)
+	if (nrow(tableEspeces)==0) funout(gettext(get("msg",envir_stacomi)$BilanEspeces.5),arret=TRUE)
 	tableEspeces$taxon_stades=paste(tableEspeces$tax_nom_latin,tableEspeces$std_libelle,sep="_")
 	# only keeping taxon stage for species with several stages
 	nbstades=tapply(tableEspeces$tax_nom_latin,tableEspeces$taxon_stades,function(X)(length(unique(X))))
@@ -169,7 +169,7 @@
 	} else tableEspeces$taxon_stades<-tableEspeces$tax_nom_latin
 	# TODO ajouter les effectifs en fin de taxons_stades ???
 	nb=length(unique(tableEspeces$taxon_stade))
-	if (min(tableEspeces$lot_effectif)<0) {funout(get("msg",envir_stacomi)$BilanEspeces.6)
+	if (min(tableEspeces$lot_effectif)<0) {funout(gettext(get("msg",envir_stacomi)$BilanEspeces.6))
 		tableEspeces$lot_effectif=abs(tableEspeces$lot_effectif)
 	}
 	sumEspeces=switch(bilanEspeces at liste@listechoice,
@@ -217,14 +217,14 @@
 	if (exists("bilanEspeces",envir_stacomi)) {
 		bilanEspeces<-get("bilanEspeces",envir_stacomi)
 	} else {      
-		funout(get("msg",envir_stacomi)$BilanEspeces.4,arret=TRUE)
+		funout(gettext(get("msg",envir_stacomi)$BilanEspeces.4),arret=TRUE)
 	}
 	DC=as.numeric(bilanEspeces at dc@dc_selectionne)	
 	# update of refliste which does not need calcul button pushed
 	bilanEspeces at liste<-get("refliste",envir_stacomi)   
 	
 	tableEspeces=bilanEspeces at data
-	if (nrow(tableEspeces)==0) funout(get("msg",envir_stacomi)$BilanEspeces.5,arret=TRUE)
+	if (nrow(tableEspeces)==0) funout(gettext(get("msg",envir_stacomi)$BilanEspeces.5),arret=TRUE)
 	tableEspeces$taxon_stades=paste(tableEspeces$tax_nom_latin,tableEspeces$std_libelle,sep="_")
 	nbstades=tapply(tableEspeces$tax_nom_latin,tableEspeces$taxon_stades,function(X)(length(unique(X))))
 	if (length(nbstades[nbstades>1])>0){
@@ -233,7 +233,7 @@
 	} else tableEspeces$taxon_stades<-tableEspeces$tax_nom_latin
 	# TODO ajouter les effectifs en fin de taxons_stades ???
 	nb=length(unique(tableEspeces$taxon_stade))
-	if (min(tableEspeces$lot_effectif)<0) {funout(get("msg",envir_stacomi)$BilanEspeces.6)
+	if (min(tableEspeces$lot_effectif)<0) {funout(gettext(get("msg",envir_stacomi)$BilanEspeces.6))
 		tableEspeces$lot_effectif=abs(tableEspeces$lot_effectif)
 	}
 	now<-bilanEspeces at horodate@horodate
@@ -245,7 +245,7 @@
 	colnames(sumEspeces)[colnames(sumEspeces)=="Freq"]<-"Effectif" # pas forcement le m nb de colonnes	
 	path=file.path(normalizePath(path.expand(get("datawd",envir=envir_stacomi))),paste("tableEspece",now,".csv",sep=""),fsep ="\\")
 	write.table(sumEspeces,path,row.names=TRUE,col.names=TRUE,sep=";",append=FALSE)
-	funout(paste(get("msg",envir=envir_stacomi)$funtable.1,path,"\n"))
+	funout(paste(gettext(get("msg",envir=envir_stacomi)$funtable.1,path,"\n")))
 }
 
 #' Interface for BilanEspece class
@@ -254,26 +254,26 @@
 interface_BilanEspeces=function(){
 	bilanEspeces=new("BilanEspeces")
 	assign("bilanEspeces",bilanEspeces,envir = .GlobalEnv)
-	funout(get("msg",envir=envir_stacomi)$interface_BilanEspeces.1)
+	funout(gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.1))
 	bilanEspeces at dc=charge(bilanEspeces at dc)   
 	bilanEspeces at liste=charge(object=bilanEspeces at liste,
 			vecteur=c("aucun","semaine","mois","annee"),
-			label=get("msg",envir=envir_stacomi)$interface_BilanEspeces.7)
+			label=gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.7))
 	quitte()
 	group <- gWidgets::ggroup(horizontal=FALSE)   # doit toujours s'appeller group
 	assign("group",group,envir = .GlobalEnv)  
-	gl=glabel(text=get("msg",envir=envir_stacomi)$interface_BilanEspeces.2,container=group)
+	gl=glabel(text=gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.2,container=group))
 	add(ggroupboutons,group)
 	choice(bilanEspeces at horodate,
-			label=get("msg",envir=envir_stacomi)$interface_Bilan_lot.3,
+			label=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.3),
 			nomassign="bilanEspeces_date_debut",
-			funoutlabel=get("msg",envir=envir_stacomi)$interface_Bilan_lot.5,
+			funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.5),
 			decal=-2,
 			affichecal=FALSE)
 	choice(bilanEspeces at horodate,
-			label=get("msg",envir=envir_stacomi)$interface_Bilan_lot.4,
+			label=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.4),
 			nomassign="bilanEspeces_date_fin",
-			funoutlabel=get("msg",envir=envir_stacomi)$interface_Bilan_lot.6,
+			funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
 			decal=-1,
 			affichecal=FALSE)
 	choice(bilanEspeces at dc,objectBilan=bilanEspeces,is.enabled=TRUE)
@@ -282,10 +282,10 @@
 	assign("ggroupboutonsbas",ggroupboutonsbas, envir=.GlobalEnv)
 	gWidgets::add(ggroupboutons,ggroupboutonsbas)
 	toolbarlist = list(
-			Calc=gWidgets::gaction(handler=hBilanEspecescalc, action=bilanEspeces, icon="new", label="calcul", tooltip=get("msg",envir=envir_stacomi)$interface_BilanEspeces.3),
-			Graph=gWidgets::gaction(label="pie",tooltip=get("msg",envir=envir_stacomi)$interface_BilanEspeces.4,icon="bubbles",handler=hCamembert,action="pie"),
-			Graph2=gWidgets::gaction(handler=hCamembert, icon="barplot", label="histo", tooltip=get("msg",envir=envir_stacomi)$interface_BilanEspeces.5,action="graph"),
-			Stat=gWidgets::gaction(handler=hTableBilanEspeces, icon="dataframe", label="stat", tooltip=get("msg",envir=envir_stacomi)$interface_BilanEspeces.6),    
+			Calc=gWidgets::gaction(handler=hBilanEspecescalc, action=bilanEspeces, icon="new", label="calcul", tooltip=gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.3)),
+			Graph=gWidgets::gaction(label="pie",tooltip=gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.4,icon="bubbles",handler=hCamembert,action="pie")),
+			Graph2=gWidgets::gaction(handler=hCamembert, icon="barplot", label="histo", tooltip=gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.5,action="graph")),
+			Stat=gWidgets::gaction(handler=hTableBilanEspeces, icon="dataframe", label="stat", tooltip=gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.6)),    
 			annuler=gWidgets::gaction(handler= quitte,icon = "close",label="quitter")
 	)    
 	#gWidgets::add(ggroupboutonsbas, gtoolbar(toolbarlist))

Modified: pkg/stacomir/R/BilanFonctionnementDC.r
===================================================================
--- pkg/stacomir/R/BilanFonctionnementDC.r	2017-01-24 15:03:56 UTC (rev 246)
+++ pkg/stacomir/R/BilanFonctionnementDC.r	2017-01-25 16:57:25 UTC (rev 247)
@@ -60,7 +60,7 @@
 #req at where=#defini dans la methode ODBCwheredate
 			req<-stacomirtools::connect(req) # appel de la methode connect de l'object ODBCWHEREDATE
 			object at data<-req at query
-			if (!silent) funout(get("msg",envir_stacomi)$BilanFonctionnementDC.1)
+			if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.1))
 			return(object)
 		})
 
@@ -79,18 +79,18 @@
 			if (exists("refDC",envir_stacomi)) {
 				object at dc<-get("refDC",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.1,arret=TRUE)				}     
+				funout(gettext(get("msg",envir_stacomi)$ref.1),arret=TRUE)				}     
 			
 			if (exists("bilanFonctionnementDC_date_debut",envir_stacomi)) {
 				object at horodatedebut@horodate<-get("bilanFonctionnementDC_date_debut",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.5,arret=TRUE)	
+				funout(gettext(get("msg",envir_stacomi)$ref.5),arret=TRUE)	
 			}
 			
 			if (exists("bilanFonctionnementDC_date_fin",envir_stacomi)) {
 				object at horodatefin@horodate<-get("bilanFonctionnementDC_date_fin",envir_stacomi)
 			} else {
-				funout(get("msg",envir_stacomi)$ref.6,arret=TRUE)	
+				funout(gettext(get("msg",envir_stacomi)$ref.6),arret=TRUE)	
 			}			
 			return(object)
 		})
@@ -112,17 +112,17 @@
 			# bilanFonctionnementDC<-bfDC;dc=5;horodatedebut="2000-01-01";horodatefin="2015-12-31";silent=TRUE
 			bilanFonctionnementDC<-object
 			assign("bilanFonctionnementDC",bilanFonctionnementDC,envir=envir_stacomi)    
-			if (!silent) funout(get("msg",envir=envir_stacomi)$interface_BilanFonctionnementDC.1)
+			if (!silent) funout(gettext(get("msg",envir=envir_stacomi)$interface_BilanFonctionnementDC.1))
 			bilanFonctionnementDC at dc<-charge(bilanFonctionnementDC at dc)    
 			bilanFonctionnementDC at dc<-choice_c(bilanFonctionnementDC at dc,dc)
 			# assigns the parameter (horodatedebut) of the method to the object using choice_c method for RefDC
 			bilanFonctionnementDC at horodatedebut<-choice_c(object=bilanFonctionnementDC at horodatedebut,
 					nomassign="bilanFonctionnementDC_date_debut",
-					funoutlabel=get("msg",envir=envir_stacomi)$interface_Bilan_lot.5,
+					funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.5),
 					horodate=horodatedebut, silent=silent)
 			bilanFonctionnementDC at horodatefin<-choice_c(bilanFonctionnementDC at horodatefin,
 					nomassign="bilanFonctionnementDC_date_fin",
-					funoutlabel=get("msg",envir=envir_stacomi)$interface_Bilan_lot.6,
+					funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
 					horodate=horodatefin,silent=silent)
 			assign("bilanFonctionnementDC",bilanFonctionnementDC,envir=envir_stacomi)  
 			return(bilanFonctionnementDC)
@@ -166,7 +166,7 @@
 			plot.type<-as.character(plot.type)# to pass also characters
 			if (!plot.type%in%c("1","2","3","4")) stop('plot.type must be 1,2,3 or 4')
 			if (nrow(bilanFonctionnementDC at data)==0) 
-				funout(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.2,arret=TRUE)
+				funout(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.2),arret=TRUE)
 			if (plot.type=="1"|plot.type=="2"){
 				t_periodefonctdispositif_per=bilanFonctionnementDC at data # on recupere le data.frame   
 				# l'objectif du programme ci dessous est de calculer la time.sequence mensuelle de fonctionnement du dispositif.
@@ -189,8 +189,8 @@
 				#progress bar
 				###########################
 				mygtkProgressBar(
-						title=get("msg",envir=envir_stacomi)$BilanFonctionnementDC.4,
-						progress_text=get("msg",envir=envir_stacomi)$BilanFonctionnementDC.5)
+						title=gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.4),
+						progress_text=gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.5))
 				# this function assigns
 				z=0 # compteur tableau t_periodefonctdispositif_per_mois
 				for(j in 1:nrow(t_periodefonctdispositif_per)){
@@ -218,7 +218,7 @@
 				t_periodefonctdispositif_per_mois$annee=strftime(as.POSIXlt(t_periodefonctdispositif_per_mois$tempsdebut),"%Y")
 				progress_bar$setText("All done.")
 				progress_bar$setFraction(1) 
[TRUNCATED]

To get the complete diff run:
    svnlook diff /svnroot/stacomir -r 247


More information about the Stacomir-commits mailing list