[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