[Stacomir-commits] r255 - in pkg/stacomir: R po
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Jan 27 15:45:55 CET 2017
Author: timothee_besse
Date: 2017-01-27 15:45:54 +0100 (Fri, 27 Jan 2017)
New Revision: 255
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_stades_pigm.r
pkg/stacomir/R/Bilan_taille.r
pkg/stacomir/R/interface_bilan_poids_moyen.r
pkg/stacomir/po/fr_FR.mo
pkg/stacomir/po/fr_FR.po
Log:
Corrections de messages...
Modified: pkg/stacomir/R/BilanAgedemer.r
===================================================================
--- pkg/stacomir/R/BilanAgedemer.r 2017-01-27 11:48:16 UTC (rev 254)
+++ pkg/stacomir/R/BilanAgedemer.r 2017-01-27 14:45:54 UTC (rev 255)
@@ -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(gettext(get("msg",envir_stacomi)$BilanAgedemer.1))
+ if (!silent) funout(gettext("Data loaded"))
return(object)
})
@@ -192,7 +192,7 @@
silent=silent)
bilan_adm at horodatefin<-choice_c(bilan_adm at horodatefin,
nomassign="bilan_adm_date_fin",
- funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
+ funoutlabel=gettext("Ending date has been chosen\n"),
horodate=horodatefin,
silent=silent)
bilan_adm at limit1hm<-choice_c(bilan_adm at limit1hm,as.character(limit1hm))
@@ -214,7 +214,7 @@
funout(gettext("you are in deep shit"), arret=TRUE)
}
adm=bilan_adm at data # on recupere le data.frame
- if (is.na(as.numeric(bilan_adm at limit1hm@label))) stop("erreur interne")
+ if (is.na(as.numeric(bilan_adm at limit1hm@label))) stop("internal error")
# if no value, a dummy value of 2m
if (is.na(as.numeric(bilan_adm at limit2hm@label))) bilan_adm at limit2hm@label<-2000
lescoupes<-c(0,as.numeric(bilan_adm at limit1hm@label),as.numeric(bilan_adm at limit2hm@label),2001)
@@ -516,7 +516,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(gettext(get("msg",envir_stacomi)$BilanAgedemer.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/BilanAnnuels.r
===================================================================
--- pkg/stacomir/R/BilanAnnuels.r 2017-01-27 11:48:16 UTC (rev 254)
+++ pkg/stacomir/R/BilanAnnuels.r 2017-01-27 14:45:54 UTC (rev 255)
@@ -67,7 +67,7 @@
funout(gettext("You need to choose the ending year\n"),arret=TRUE)
}
assign("bilanAnnuels",bilA,envir_stacomi)
- funout(gettext(get("msg",envir_stacomi)$BilanAnnuels.1))
+ funout(gettext("\"The object BilanAnnuels is stored in the stacomi environment, type bilA <-get(\"bilanAnnuels\",envir_stacomi)\"")
return(bilA)
@@ -420,7 +420,7 @@
theme_bw()
print(g)
assign("g",g,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
+ if (!silent) funout(gettext("\"Writing the graphical object into envir_stacomi environment : write g=get(g\",envir_stacomi)\"\n"))
} else if (length(lestax)==1 & length(lesstd)==1){
@@ -429,7 +429,7 @@
theme_bw()
print(g)
assign("g",g,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
+ if (!silent) funout(gettext("\"Writing the graphical object into envir_stacomi environment : write g=get(g\",envir_stacomi)\"\n"))
} else if (length(lestax)==1 & length(lesdic)==1){
@@ -438,7 +438,7 @@
theme_bw()
print(g)
assign("g",g,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
+ if (!silent) funout(gettext("\"Writing the graphical object into envir_stacomi environment : write g=get(g\",envir_stacomi)\"\n"))
} else if (length(lesdic)==1 & length(lesstd)==1){
@@ -447,7 +447,7 @@
theme_bw()
print(g)
assign("g",g,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
+ if (!silent) funout(gettext("\"Writing the graphical object into envir_stacomi environment : write g=get(g\",envir_stacomi)\"\n"))
} else if (length(lestax)==1){
@@ -457,7 +457,7 @@
theme_bw()
print(g)
assign("g",g,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
+ if (!silent) funout(gettext("\"Writing the graphical object into envir_stacomi environment : write g=get(g\",envir_stacomi)\"\n"))
} else if (length(lesstd)==1){
@@ -466,7 +466,7 @@
theme_bw()
print(g)
assign("g",g,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
+ if (!silent) funout(gettext("\"Writing the graphical object into envir_stacomi environment : write g=get(g\",envir_stacomi)\"\n"))
} else if (length(lesdic)==1){
@@ -475,7 +475,7 @@
theme_bw()
print(g)
assign("g",g,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
+ if (!silent) funout(gettext("\"Writing the graphical object into envir_stacomi environment : write g=get(g\",envir_stacomi)\"\n"))
} else {
if (length(lesdic)<3){
@@ -493,7 +493,7 @@
print(g)
assign("g",g,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir_stacomi)$BilanMigrationPar.6))
+ if (!silent) funout(gettext("\"Writing the graphical object into envir_stacomi environment : write g=get(g\",envir_stacomi)\"\n"))
}
}
}
Modified: pkg/stacomir/R/BilanArgentee.r
===================================================================
--- pkg/stacomir/R/BilanArgentee.r 2017-01-27 11:48:16 UTC (rev 254)
+++ pkg/stacomir/R/BilanArgentee.r 2017-01-27 14:45:54 UTC (rev 255)
@@ -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(gettext(get("msg",envir_stacomi)$BilanArgentee.1))
+ if (!silent) funout(gettext("Data loaded"))
return(object)
})
@@ -181,7 +181,7 @@
silent=silent)
bilanArg at horodatefin<-choice_c(bilanArg at horodatefin,
nomassign="bilanArg_date_fin",
- funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
+ funoutlabel=gettext("Ending date has been chosen\n"),
horodate=horodatefin,
silent=silent)
validObject(bilanArg)
@@ -198,7 +198,7 @@
#bilanArg<-b_carlot
bilanArg<-object
if(nrow(bilanArg at data)==0) {
- funout(gettext(get("msg",envir_stacomi)$BilanArgentee.2, arret=TRUE))
+ funout(gettext("No data of silver or yellow eel on the selected period"), arret=TRUE)
}
arg=bilanArg at data # on recupere le data.frame
@@ -347,10 +347,10 @@
group=stage,
type = c("p"),
par.settings = my.settings,
- 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))
+ xlab=gettext("size (BL mm)"),
+ ylab=gettext("Mean eye diameter (MD mm)"),
par.strip.text=list(col="white", font=2),
- auto.key=list(title=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.5), # Silvering stages (Durif et al. 2009))
+ auto.key=list(title=gettext("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=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.6), # "Mois"),
- ylab=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.7),#"Effectif")
+ xlab=gettext("Month"),
+ ylab=gettext("Number"),
par.strip.text=list(col="white", font=2),
- auto.key=list(title=gettext(get("msg",envir=envir_stacomi)$BilanArgentee.8),#"Effectif par stades"),
+ auto.key=list(title=gettext("Number by pigmentation stage"),
cex.title=1.2,
space="top",
columns=6,
Modified: pkg/stacomir/R/BilanConditionEnv.r
===================================================================
--- pkg/stacomir/R/BilanConditionEnv.r 2017-01-27 11:48:16 UTC (rev 254)
+++ pkg/stacomir/R/BilanConditionEnv.r 2017-01-27 14:45:54 UTC (rev 255)
@@ -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(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.1))
+ funout(gettext("Environmental conditions loading query completed\n"))
return(object)
}
)
@@ -89,19 +89,19 @@
if (exists("refStationMesure",envir_stacomi)) {
object at stationMesure<-get("refStationMesure",envir_stacomi)
} else {
- funout(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.2),arret=TRUE)
+ funout(gettext("You need to choose a monitoring station, clic on validate\n"),arret=TRUE)
}
if (exists("bilanConditionEnv_date_debut",envir_stacomi)) {
object at datedebut<-get("bilanConditionEnv_date_debut",envir_stacomi)@horodate
} else {
- funout(gettext(get("msg",envir=envir_stacomi)$ref.5),arret=TRUE)
+ funout(gettext("You need to choose the starting date\n"),arret=TRUE)
}
if (exists("bilanConditionEnv_date_fin",envir_stacomi)) {
object at datefin<-get("bilanConditionEnv_date_fin",envir_stacomi)@horodate
}else {
- funout(gettext(get("msg",envir=envir_stacomi)$ref.6),arret=TRUE)
+ funout(gettext("You need to choose the ending date\n"),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(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.3))
+ funout(gettext("Some monitoring stations lack associated values\n"))
}
# pour toutes les stations de mesure selectionnees
@@ -163,7 +163,7 @@
}
else
{
- funout(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.4),arret=TRUE)
+ funout(gettext("No environmental conditions values for selected monitoring stations (BilanConditionEnv.r)\n"),arret=TRUE)
}
return (lesGraphes)
}
@@ -177,7 +177,7 @@
dat<-bilanConditionEnv at data
dat<-stacomirtools::chnames(dat,"env_stm_identifiant","stm_identifiant")
dat<-merge(dat,bilanConditionEnv at stationMesure@data,by="stm_identifiant")
- funout(gettext(get("msg",envir=envir_stacomi)$BilanCondtionEnv.5))
+ funout(gettext("Statistics :\n"))
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"))
Modified: pkg/stacomir/R/BilanEspeces.r
===================================================================
--- pkg/stacomir/R/BilanEspeces.r 2017-01-27 11:48:16 UTC (rev 254)
+++ pkg/stacomir/R/BilanEspeces.r 2017-01-27 14:45:54 UTC (rev 255)
@@ -85,7 +85,7 @@
" AND lot_effectif IS NOT NULL",
sep="")
requete<-stacomirtools::connect(requete)
- if (requete at etat!="Requete reussie \n") funout(gettext(get("msg",envir=envir_stacomi)$BilanEspeces.3),arret=TRUE)
+ if (requete at etat!="Requete reussie \n") funout(gettext("Query failed for the view vue_ope_lot_car \n"),arret=TRUE)
bilanEspeces at data<-requete at query
return(bilanEspeces)
})
@@ -109,7 +109,7 @@
#' @author Cedric Briand \email{cedric.briand"at"eptb-vilaine.fr}
#' @export
setMethod("charge",signature=signature("BilanEspeces"),definition=function(object){
- funout(gettext(get("msg",envir_stacomi)$BilanEspeces.7))
+ funout(gettext("Checking objects and launching query\n")
bilanEspeces<-object
if (exists("refDC",envir_stacomi)) {
bilanEspeces at dc<-get("refDC",envir_stacomi)
@@ -120,13 +120,13 @@
if (exists("bilanEspeces_date_debut",envir_stacomi)) {
bilanEspeces at datedebut<-get("bilanEspeces_date_debut",envir_stacomi)@horodate
} else {
- funout(gettext(get("msg",envir=envir_stacomi)$ref.5),arret=TRUE)
+ funout(gettext("You need to choose the starting date\n"),arret=TRUE)
}
# rem id
if (exists("bilanEspeces_date_fin",envir_stacomi)) {
bilanEspeces at datefin<-get("bilanEspeces_date_fin",envir_stacomi)@horodate
} else {
- funout(gettext(get("msg",envir=envir_stacomi)$ref.6),arret=TRUE)
+ funout(gettext("You need to choose the ending date\n"),arret=TRUE)
}
if (exists("refliste",envir_stacomi)) {
bilanEspeces at liste<-get("refliste",envir_stacomi)
@@ -136,7 +136,7 @@
bilanEspeces<-connect(bilanEspeces)
assign("bilanEspeces",bilanEspeces,envir_stacomi)
- funout(gettext(get("msg",envir_stacomi)$BilanEspeces.1))
+ funout(gettext("Summary object is stocked into envir_stacomi environment : write bilanEspeces=get('bilanEspeces',envir_stacomi)\n"))
})
@@ -152,14 +152,14 @@
if (exists("bilanEspeces",envir_stacomi)) {
bilanEspeces<-get("bilanEspeces",envir_stacomi)
} else {
- funout(gettext(get("msg",envir_stacomi)$BilanEspeces.4),arret=TRUE)
+ funout(gettext("You need to launch computation first, clic on calc\n"),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(gettext(get("msg",envir_stacomi)$BilanEspeces.5),arret=TRUE)
+ if (nrow(tableEspeces)==0) funout(gettext("No fish in the database for this period\n"),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(gettext(get("msg",envir_stacomi)$BilanEspeces.6))
+ if (min(tableEspeces$lot_effectif)<0) {funout(gettext("Warning, some negative counts are transformed into positive ones\n"))
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(gettext(get("msg",envir_stacomi)$BilanEspeces.4),arret=TRUE)
+ funout(gettext("You need to launch computation first, clic on calc\n"),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(gettext(get("msg",envir_stacomi)$BilanEspeces.5),arret=TRUE)
+ if (nrow(tableEspeces)==0) funout(gettext("No fish in the database for this period\n"),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(gettext(get("msg",envir_stacomi)$BilanEspeces.6))
+ if (min(tableEspeces$lot_effectif)<0) {funout(gettext("Warning, some negative counts are transformed into positive ones\n"))
tableEspeces$lot_effectif=abs(tableEspeces$lot_effectif)
}
now<-bilanEspeces at horodate@horodate
@@ -254,18 +254,18 @@
interface_BilanEspeces=function(){
bilanEspeces=new("BilanEspeces")
assign("bilanEspeces",bilanEspeces,envir = .GlobalEnv)
- funout(gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.1))
+ funout(gettext("Summary of encountered species for the counting device\n"))
bilanEspeces at dc=charge(bilanEspeces at dc)
bilanEspeces at liste=charge(object=bilanEspeces at liste,
vecteur=c("aucun","semaine","mois","annee"),
- label=gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.7))
+ label=gettext("Choice of cutting"))
quitte()
group <- gWidgets::ggroup(horizontal=FALSE) # doit toujours s'appeller group
assign("group",group,envir = .GlobalEnv)
- gl=glabel(text=gettext(get("msg",envir=envir_stacomi)$interface_BilanEspeces.2,container=group))
+ gl=glabel(text=gettext("Species summary"),container=group)
add(ggroupboutons,group)
choice(bilanEspeces at horodate,
- label=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.3),
+ label=gettext("Start of timestamp"),
nomassign="bilanEspeces_date_debut",
funoutlabel=gettext("Beginning date has been chosen\n"),
decal=-2,
@@ -273,7 +273,7 @@
choice(bilanEspeces at horodate,
label=gettext("End of timestamp"),
nomassign="bilanEspeces_date_fin",
- funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
+ funoutlabel=gettext("Ending date has been chosen\n"),
decal=-1,
affichecal=FALSE)
choice(bilanEspeces at dc,objectBilan=bilanEspeces,is.enabled=TRUE)
@@ -282,11 +282,11 @@
assign("ggroupboutonsbas",ggroupboutonsbas, envir=.GlobalEnv)
gWidgets::add(ggroupboutons,ggroupboutonsbas)
toolbarlist = list(
- 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")
+ Calc=gWidgets::gaction(handler=hBilanEspecescalc, action=bilanEspeces, icon="new", label="calcul", tooltip=gettext("Loading")),
+ Graph=gWidgets::gaction(label="pie",tooltip=gettext("Pie chart graphic"),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("Summary tables in .csv and XML")),
+ annuler=gWidgets::gaction(handler= quitte,icon = "close",label=gettext("exit"))
)
#gWidgets::add(ggroupboutonsbas, gtoolbar(toolbarlist))
#gWidgets::addSpring(group)
Modified: pkg/stacomir/R/BilanFonctionnementDC.r
===================================================================
--- pkg/stacomir/R/BilanFonctionnementDC.r 2017-01-27 11:48:16 UTC (rev 254)
+++ pkg/stacomir/R/BilanFonctionnementDC.r 2017-01-27 14:45:54 UTC (rev 255)
@@ -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(gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.1))
+ if (!silent) funout(gettext("Time steps loaded fot this counting device\n"))
return(object)
})
@@ -112,7 +112,7 @@
# 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(gettext(get("msg",envir=envir_stacomi)$interface_BilanFonctionnementDC.1))
+ if (!silent) funout(gettext("Loading of the list for fishways and choice of the time step\n"))
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
@@ -122,7 +122,7 @@
horodate=horodatedebut, silent=silent)
bilanFonctionnementDC at horodatefin<-choice_c(bilanFonctionnementDC at horodatefin,
nomassign="bilanFonctionnementDC_date_fin",
- funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
+ funoutlabel=gettext("Ending date has been chosen\n"),
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(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.2),arret=TRUE)
+ funout(gettext("No data for this counting device\n"),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=gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.4),
- progress_text=gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.5))
+ title=gettext("time in hours"),
+ progress_text=gettext("Working of the counting device"))
# this function assigns
z=0 # compteur tableau t_periodefonctdispositif_per_mois
for(j in 1:nrow(t_periodefonctdispositif_per)){
@@ -227,10 +227,10 @@
aes(x=mois,y=sumduree,fill=libelle))+
facet_grid(annee~.)+
ggtitle(main)+
- ylab(gettext(get("msg",envir_stacomi)$BilanFonctionnementDF.6[1]))+
- xlab(gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.3))+
+ ylab(gettext("duration"))+
+ xlab(gettext("month"))+
geom_bar(stat='identity')+
- scale_fill_manual(gettext(get("msg",envir_stacomi)$BilanFonctionnementDF.6[2],values = c("#FF6700","#EE1874", "#9E0142","#76BEBE","#999999")))+
+ scale_fill_manual(gettext("type_oper.",values = c("#FF6700","#EE1874", "#9E0142","#76BEBE","#999999")))+
theme(
plot.background = element_rect(fill ="white"),
panel.background = element_rect(fill="white"),
@@ -250,10 +250,10 @@
g1<- ggplot(t_periodefonctdispositif_per_mois,aes(x=mois,y=sumduree))+
facet_grid(annee~.)+
ggtitle(main)+
- ylab(gettext(get("msg",envir_stacomi)$BilanFonctionnementDF.6[1]))+
- xlab(gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.3))+
+ ylab(gettext("duration"))+
+ xlab(gettext("month"))+
geom_bar(stat='identity',aes(fill=per_etat_fonctionnement))+
- scale_fill_manual(gettext(get("msg",envir_stacomi)$BilanFonctionnementDF.6[3],values = c("#0F313A","#CEB99A") )) +
+ scale_fill_manual(gettext("operation",values = c("#0F313A","#CEB99A") )) +
theme(
plot.background = element_rect(fill ="white"),
panel.background = element_rect(fill="white"),
@@ -273,7 +273,7 @@
if (plot.type=="2")
print(g1)
assign("periodeDC",t_periodefonctdispositif_per_mois,envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.8))
+ if (!silent) funout(gettext("Writing the table into envir_stacomi environment : write periodeDC=get('periodeDC',envir_stacomi)\n"))
# the progress bar has been assigned in envir_stacomi, we destroy it
gtkWidgetDestroy(get("progres",envir=envir_stacomi))
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
@@ -303,7 +303,7 @@
xlab="",
xaxt="n",
yaxt="n",
- ylab=gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.9),
+ ylab=gettext("Counting device"),
main=main,
#bty="n",
cex=0.8)
@@ -325,7 +325,7 @@
border = NA,
lwd = 1)
legend( x= "bottom",
- legend= gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.10),
+ legend= gettext("Func.","Stop","Normal func."),
pch=c(16,16),
col=c(mypalette[4],mypalette[6],mypalette[1]),
#horiz=TRUE,
@@ -372,7 +372,7 @@
}
legend (x= debut,
y=0.6,
- legend= gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11),
+ legend= gettext("Normal oper.","Operational stop","Stop","Dysfunct.","Unknown"),
pch=c(15,15),
col=c(mypalette[4],mypalette[6]),
bty="n",
@@ -390,8 +390,8 @@
text.width=(fin-debut)/8,
cex=0.7
)
- graphics::text(x=debut,y=0.95, label=gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.12,font=4,pos=4))
- graphics::text(x=debut,y=0.45, label=gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.13, font=4,pos=4))
+ graphics::text(x=debut,y=0.95, label=gettext("Operation of the counting device"), font=4, pos=4)
+ graphics::text(x=debut,y=0.45, label=gettext("Shutdowns types for this counting device"), font=4,pos=4)
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
# PLOT OF TYPE BOX (plot.type=4)
@@ -406,9 +406,9 @@
g<-ggplot(tpp)+
geom_rect(aes(xmin=xmin,xmax=xmax,ymin=Hdeb,ymax=Hfin,fill=factor(per_tar_code)),alpha=0.8)+
scale_fill_manual("type",values=c("1"="#377F07","2"="#DCE032","3"="#C42306","4"="#AAEDF6","5"="#191917"),
- labels = gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11))+
+ labels = gettext("Normal oper.","Operational stop","Stop","Dysfunct.","Unknown"))+
#scale_colour_manual("type",values=c("1"="#40CA2C","2"="#C8B22D","3"="#AB3B26","4"="#B46BED","5"="#B8B8B8"),
- # labels = gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11)+ )
+ # labels = gettext("Normal oper.","Operational stop","Stop","Dysfunct.","Unknown")+ )
ggtitle(main)+
ylab("Heure")+theme(
plot.background = element_rect(fill ="black"),
@@ -438,7 +438,7 @@
bilanFonctionnementDC=charge(bilanFonctionnementDC)
bilanFonctionnementDC=connect(bilanFonctionnementDC)
if( nrow(bilanFonctionnementDC at data)==0 ) {
- funout(gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.2, arret=TRUE))
+ funout(gettext("No data for this counting device\n"), arret=TRUE)
}
plot(bilanFonctionnementDC,plot.type=1,silent=FALSE)
}
@@ -456,7 +456,7 @@
bilanFonctionnementDC=charge(bilanFonctionnementDC)
bilanFonctionnementDC<-connect(bilanFonctionnementDC)
if( nrow(bilanFonctionnementDF at data)==0 ) {
- funout(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.2, arret=TRUE))
+ funout(gettext("Shutdowns types for this counting device\n"), arret=TRUE)
}
plot(bilanFonctionnementDC,plot.type=2,silent=FALSE)
}
@@ -471,7 +471,7 @@
bilanFonctionnementDC=connect(bilanFonctionnementDC)
if( nrow(bilanFonctionnementDC at data)==0 ) {
- funout(gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.2, arret=TRUE))
+ funout(gettext("No data for this counting device\n"), arret=TRUE)
}
plot(bilanFonctionnementDC,plot.type=3)
}
@@ -486,7 +486,7 @@
bilanFonctionnementDC<-connect(bilanFonctionnementDC)
if( nrow(bilanFonctionnementDC at data)==0 ) {
- funout(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.2, arret=TRUE))
+ funout(gettext("No data for this counting device\n"), arret=TRUE)
}
plot(bilanFonctionnementDC,plot.type=4,silent=FALSE)
@@ -534,7 +534,7 @@
bilanFonctionnementDC=connect(bilanFonctionnementDC)
if( nrow(bilanFonctionnementDC at data)==0 ) {
- funout(gettext(get("msg",envir_stacomi)$BilanFonctionnementDC.2, arret=TRUE))
+ funout(gettext("No data for this counting device\n"), arret=TRUE)
}
summary(bilanFonctionnementDC)
}
@@ -572,14 +572,14 @@
perc<-round(100*sommes/as.numeric(sum(duree)))
sommes<-round(sommes,2)
funout(gettext("Duration in days (operation type):"))
- funout(paste(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11),
+ funout(paste(gettext("Normal oper.","Operational stop","Stop","Dysfunct.","Unknown"),
" :",
sommes,"(",perc,"%)",sep=""))
sommes<-tapply(duree,t_periodefonctdispositif_per$per_etat_fonctionnement,sum)
perc<-round(100*sommes/as.numeric(sum(duree)))
sommes<-round(sommes,2)
funout(gettext("Duration in days (operation):"))
- funout(paste(rev(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDC.11)),
+ funout(paste(rev(gettext("Func.","Stop")),
" :",
sommes,"(",perc,"%)",sep=""))
Modified: pkg/stacomir/R/BilanFonctionnementDF.r
===================================================================
--- pkg/stacomir/R/BilanFonctionnementDF.r 2017-01-27 11:48:16 UTC (rev 254)
+++ pkg/stacomir/R/BilanFonctionnementDF.r 2017-01-27 14:45:54 UTC (rev 255)
@@ -64,7 +64,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(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.1))
+ if (!silent) funout(gettext("Time steps of the fishway loaded\n"))
return(object)
})
@@ -92,19 +92,19 @@
if (exists("refDF",envir=envir_stacomi)) {
object at df<-get("refDF",envir=envir_stacomi)
} else {
- funout(gettext(get("msg",envir=envir_stacomi)$ref.12),arret=TRUE)
+ funout(gettext("You need to choose a crossing device, clic on validate\n"),arret=TRUE)
}
if (exists("bilanFonctionnementDF_date_debut",envir=envir_stacomi)) {
object at horodatedebut@horodate<-get("bilanFonctionnementDF_date_debut",envir=envir_stacomi)
} else {
- funout(gettext(get("msg",envir=envir_stacomi)$ref.5),arret=TRUE)
+ funout(gettext("You need to choose the starting date\n"),arret=TRUE)
}
if (exists("bilanFonctionnementDF_date_fin",envir=envir_stacomi)) {
object at horodatefin@horodate<-get("bilanFonctionnementDF_date_fin",envir=envir_stacomi)
} else {
- funout(gettext(get("msg",envir=envir_stacomi)$ref.6),arret=TRUE)
+ funout(gettext("You need to choose the ending date\n"),arret=TRUE)
}
assign("bilanFonctionnementDF",object,envir=envir_stacomi)
return(object)
@@ -126,7 +126,7 @@
# bilanFonctionnementDF<-bfDF;df=2;horodatedebut="2013-01-01";horodatefin="2013-12-31";silent=TRUE
bilanFonctionnementDF<-object
assign("bilanFonctionnementDF",bilanFonctionnementDF,envir=envir_stacomi)
- if (!silent) funout(gettext(get("msg",envir=envir_stacomi)$interface_BilanFonctionnementDC.1))
+ if (!silent) funout(gettext("Loading of the list for fishways and choice of the time step\n"))
bilanFonctionnementDF at df<-charge(bilanFonctionnementDF at df)
bilanFonctionnementDF at df<-choice_c(bilanFonctionnementDF at df,df)
# assigns the parameter (horodatedebut) of the method to the object using choice_c method for RefDC
@@ -136,7 +136,7 @@
horodate=horodatedebut, silent=silent)
bilanFonctionnementDF at horodatefin<-choice_c(bilanFonctionnementDF at horodatefin,
nomassign="bilanFonctionnementDF_date_fin",
- funoutlabel=gettext(get("msg",envir=envir_stacomi)$interface_Bilan_lot.6),
+ funoutlabel=gettext("Ending date has been chosen\n"),
horodate=horodatefin,silent=silent)
assign("bilanFonctionnementDF",bilanFonctionnementDF,envir=envir_stacomi)
return(bilanFonctionnementDF)
@@ -172,7 +172,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(bilanFonctionnementDF at data)==0)
- funout(gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.3),arret=TRUE)
+ funout(gettext("No data for this fishway\n"),arret=TRUE)
if (plot.type=="1"|plot.type=="2"){
t_periodefonctdispositif_per=bilanFonctionnementDF at data # on recupere le data.frame
# l'objectif du programme ci dessous est de calculer la time.sequence mensuelle de fonctionnement du dispositif.
@@ -195,8 +195,8 @@
#progress bar
###########################
mygtkProgressBar(
- title=gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.4),
- progress_text=gettext(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.5))
+ title=gettext("computing ..."),
+ progress_text=gettext("Progress %"))
# this function assigns
z=0 # compteur tableau t_periodefonctdispositif_per_mois
for(j in 1:nrow(t_periodefonctdispositif_per)){
@@ -231,8 +231,8 @@
g<- ggplot(t_periodefonctdispositif_per_mois,
aes(x=mois,y=sumduree,fill=libelle))+
facet_grid(annee~.)+
- ylab(gettext(get("msg",envir_stacomi)$BilanFonctionnementDF.6[1]))+
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/stacomir -r 255
More information about the Stacomir-commits
mailing list