[Stacomir-commits] r226 - in pkg/stacomir: R inst/examples inst/tests/testthat
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sun Oct 2 19:15:45 CEST 2016
Author: briand
Date: 2016-10-02 19:15:45 +0200 (Sun, 02 Oct 2016)
New Revision: 226
Modified:
pkg/stacomir/R/BilanFonctionnementDC.r
pkg/stacomir/R/BilanFonctionnementDF.r
pkg/stacomir/R/RefDC.r
pkg/stacomir/inst/examples/bilanFonctionnementDC_example.R
pkg/stacomir/inst/examples/bilanFonctionnementDF_example.R
pkg/stacomir/inst/tests/testthat/test-03BilanFonctionnementDF.R
pkg/stacomir/inst/tests/testthat/test-04BilanFonctionnementDC.R
Log:
Modified: pkg/stacomir/R/BilanFonctionnementDC.r
===================================================================
--- pkg/stacomir/R/BilanFonctionnementDC.r 2016-10-02 13:13:27 UTC (rev 225)
+++ pkg/stacomir/R/BilanFonctionnementDC.r 2016-10-02 17:15:45 UTC (rev 226)
@@ -156,7 +156,7 @@
#' a summary of the df operation per month, can also be \code{box},
#' a plot with adjacent rectangles.
#' @param silent Stops displaying the messages.
-#' @param title The title of the graph, if NULL a default title will be plotted
+#' @param main The title of the graph, if NULL a default title will be plotted
#' with the number of the DF
#' @return Nothing but prints the different plots
#' @author Cedric Briand \email{cedric.briand"at"eptb-vilaine.fr}
@@ -166,11 +166,11 @@
y,
plot.type=1,
silent=FALSE,
- title=NULL){
+ main=NULL){
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
# PLOT OF TYPE BARCHART (plot.type=1 (true/false) or plot.type=2)
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
- #bilanFonctionnementDC<-bfDC; require(RGtk2); require(lubridate);require(ggplot2);title=NULL;silent=FALSE;plot.type="1"
+ #bilanFonctionnementDC<-bfDC; require(RGtk2); require(lubridate);require(ggplot2);main=NULL;silent=FALSE;plot.type="1"
bilanFonctionnementDC<-x
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')
@@ -227,7 +227,7 @@
t_periodefonctdispositif_per_mois$annee=strftime(as.POSIXlt(t_periodefonctdispositif_per_mois$tempsdebut),"%Y")
progress_bar$setText("All done.")
progress_bar$setFraction(1)
- if (is.null(title)) title<-paste(get("msg",envir_stacomi)$BilanFonctionnementDC.12,bilanFonctionnementDC at dc@dc_selectionne)
+ if (is.null(main)) main<-paste(get("msg",envir_stacomi)$BilanFonctionnementDC.12,bilanFonctionnementDC at dc@dc_selectionne)
# graphic
t_periodefonctdispositif_per_mois<-stacomirtools::chnames(t_periodefonctdispositif_per_mois,
old_variable_name=c("sumduree","per_tar_code","per_etat_fonctionnement"),
@@ -238,7 +238,7 @@
g<- ggplot(t_periodefonctdispositif_per_mois,
aes(x=mois,y=duree,fill=libelle))+
facet_grid(annee~.)+
- ggtitle(title)+
+ ggtitle(main)+
geom_bar(stat='identity')+
scale_fill_manual(values = c("#FF6700","#EE1874", "#9E0142","#76BEBE","#999999"))+
theme(
@@ -258,7 +258,7 @@
t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$fonctionnement),]
t_periodefonctdispositif_per_mois$fonctionnement=as.factor( t_periodefonctdispositif_per_mois$fonctionnement)
g1<- ggplot(t_periodefonctdispositif_per_mois,aes(x=mois,y=duree))+facet_grid(annee~.)+
- ggtitle(title)+
+ ggtitle(main)+
geom_bar(stat='identity',aes(fill=fonctionnement))+
scale_fill_manual(values = c("#0F313A","#CEB99A") ) +
theme(
@@ -287,7 +287,7 @@
# PLOT OF TYPE BOX (plot.type=3)
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
} else if (plot.type=="3"){
- #bilanFonctionnementDC<-bfDC; require(RGtk2); require(lubridate);require(ggplot2);title=NULL;silent=FALSE;plot.type="3"
+ #bilanFonctionnementDC<-bfDC; require(RGtk2); require(lubridate);require(ggplot2);main=NULL;silent=FALSE;plot.type="3"
t_periodefonctdispositif_per=bilanFonctionnementDC at data
graphdate<-function(vectordate){
vectordate<-as.POSIXct(vectordate)
@@ -302,7 +302,7 @@
#display.brewer.all()
mypalette1<-c("#1B9E77","#AE017E","orange", RColorBrewer::brewer.pal(12,"Paired"))
# creation d'un graphique vide
- if (is.null(title)) title<-""
+ if (is.null(main)) main<-""
plot(graphdate(time.sequence),
seq(0,1,length.out=length(time.sequence)),
xlim=c(debut,fin),
@@ -311,7 +311,7 @@
xaxt="n",
yaxt="n",
ylab=get("msg",envir=envir_stacomi)$BilanFonctionnementDC.9,
- main=title,
+ main=main,
#bty="n",
cex=0.8)
r <- round(range(time.sequence), "day")
@@ -404,9 +404,9 @@
# PLOT OF TYPE BOX (plot.type=4)
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
} else if (plot.type=="4"){
- if (is.null(title)) title<-paste(get("msg",envir_stacomi)$BilanFonctionnementDC.7,bilanFonctionnementDC at df@df_selectionne)
+ if (is.null(main)) main<-paste(get("msg",envir_stacomi)$BilanFonctionnementDC.5,bilanFonctionnementDC at dc@dc_selectionne)
- #bilanFonctionnementDC<-bfDC; require(RGtk2); require(lubridate);require(ggplot2);title=NULL;silent=FALSE;plot.type="4"
+ #bilanFonctionnementDC<-bfDC; require(RGtk2); require(lubridate);require(ggplot2);main=NULL;silent=FALSE;plot.type="4"
t_periodefonctdispositif_per=bilanFonctionnementDC at data
tpp<-split_per_day(t_periodefonctdispositif_per,horodatedebut="per_date_debut",horodatefin="per_date_fin")
@@ -416,6 +416,7 @@
labels = get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11)+
#scale_colour_manual("type",values=c("1"="#40CA2C","2"="#C8B22D","3"="#AB3B26","4"="#B46BED","5"="#B8B8B8"),
# labels = get("msg",envir=envir_stacomi)$BilanFonctionnementDF.11)+
+ ggtitle(main)+
ylab("Heure")+theme(
plot.background = element_rect(fill ="black"),
panel.background = element_rect(fill="black"),
Modified: pkg/stacomir/R/BilanFonctionnementDF.r
===================================================================
--- pkg/stacomir/R/BilanFonctionnementDF.r 2016-10-02 13:13:27 UTC (rev 225)
+++ pkg/stacomir/R/BilanFonctionnementDF.r 2016-10-02 17:15:45 UTC (rev 226)
@@ -170,11 +170,11 @@
#' @param plot.type One of \code{barchart},\code{box}. Defaut to \code{barchart} showing a summary of the df operation per month, can also be \code{box},
#' a plot with adjacent rectangles.
#' @param silent Stops displaying the messages.
-#' @param title The title of the graph, if NULL a default title will be plotted with the number of the DF
+#' @param main The title of the graph, if NULL a default title will be plotted with the number of the DF
#' @return Nothing but prints the different plots
#' @author Cedric Briand \email{cedric.briand"at"eptb-vilaine.fr}
#' @export
-setMethod("plot",signature(x = "BilanFonctionnementDF", y = "ANY"),definition=function(x, y,plot.type=1,silent=FALSE,title=NULL){
+setMethod("plot",signature(x = "BilanFonctionnementDF", y = "ANY"),definition=function(x, y,plot.type=1,silent=FALSE,main=NULL){
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
# PLOT OF TYPE BARCHART (plot.type=1 (true/false) or plot.type=2)
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
@@ -235,7 +235,7 @@
t_periodefonctdispositif_per_mois$annee=strftime(as.POSIXlt(t_periodefonctdispositif_per_mois$tempsdebut),"%Y")
progress_bar$setText("All done.")
progress_bar$setFraction(1)
- if (is.null(title)) title<-paste(get("msg",envir_stacomi)$BilanFonctionnementDF.7,bilanFonctionnementDF at df@df_selectionne)
+ if (is.null(main)) main<-paste(get("msg",envir_stacomi)$BilanFonctionnementDF.7,bilanFonctionnementDF at df@df_selectionne)
# graphic
t_periodefonctdispositif_per_mois<-stacomirtools::chnames(t_periodefonctdispositif_per_mois,
old_variable_name=c("sumduree","per_tar_code","per_etat_fonctionnement"),
@@ -246,14 +246,14 @@
g<- ggplot(t_periodefonctdispositif_per_mois,
aes(x=mois,y=duree,fill=libelle))+
facet_grid(annee~.)+
- ggtitle(title)+
+ ggtitle(main)+
geom_bar(stat='identity')+
scale_fill_manual(values = c("#E41A1C","#E6AB02", "#9E0142","#1B9E77","#999999"))
t_periodefonctdispositif_per_mois=t_periodefonctdispositif_per_mois[order(t_periodefonctdispositif_per_mois$fonctionnement),]
t_periodefonctdispositif_per_mois$fonctionnement=as.factor( t_periodefonctdispositif_per_mois$fonctionnement)
g1<- ggplot(t_periodefonctdispositif_per_mois,aes(x=mois,y=duree))+facet_grid(annee~.)+
- ggtitle(title)+
+ ggtitle(main)+
geom_bar(stat='identity',aes(fill=fonctionnement))+
scale_fill_manual(values = c("#E41A1C","#4DAF4A"))
@@ -269,7 +269,7 @@
# PLOT OF TYPE BOX (plot.type=3)
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
} else if (plot.type=="3"){
- #bilanFonctionnementDF<-bfDF; require(RGtk2); require(lubridate);require(ggplot2);title=NULL;silent=FALSE;plot.type="3"
+ #bilanFonctionnementDF<-bfDF; require(RGtk2); require(lubridate);require(ggplot2);main=NULL;silent=FALSE;plot.type="3"
if (!silent) funout(get("msg",envir=envir_stacomi)$BilanFonctionnementDF.3)
t_periodefonctdispositif_per=bilanFonctionnementDF at data
graphdate<-function(vectordate){
@@ -285,7 +285,7 @@
#display.brewer.all()
mypalette1<-c("#1B9E77","#AE017E","orange", RColorBrewer::brewer.pal(12,"Paired"))
# creation d'un graphique vide
- if (is.null(title)) title<-""
+ if (is.null(main)) main<-""
plot(graphdate(time.sequence),
seq(0,1,length.out=length(time.sequence)),
xlim=c(debut,fin),
@@ -294,7 +294,7 @@
xaxt="n",
yaxt="n",
ylab=get("msg",envir=envir_stacomi)$BilanFonctionnementDF.9,
- main=title,
+ main=main,
#bty="n",
cex=0.8)
r <- round(range(time.sequence), "day")
@@ -384,9 +384,9 @@
# PLOT OF TYPE BOX (plot.type=4)
#&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
} else if (plot.type=="4"){
- if (is.null(title)) title<-paste(get("msg",envir_stacomi)$BilanFonctionnementDF.7,bilanFonctionnementDF at df@df_selectionne)
+ if (is.null(main)) main<-paste(get("msg",envir_stacomi)$BilanFonctionnementDF.7,bilanFonctionnementDF at df@df_selectionne)
- #bilanFonctionnementDF<-bfDF; require(RGtk2); require(lubridate);require(ggplot2);title=NULL;silent=FALSE;plot.type="4"
+ #bilanFonctionnementDF<-bfDF; require(RGtk2); require(lubridate);require(ggplot2);main=NULL;silent=FALSE;plot.type="4"
t_periodefonctdispositif_per=bilanFonctionnementDF at data
tpp<-split_per_day(t_periodefonctdispositif_per,horodatedebut="per_date_debut",horodatefin="per_date_fin")
@@ -536,7 +536,7 @@
#' @export
setMethod("summary",signature=signature(object="BilanFonctionnementDF"),definition=function(object,silent=FALSE,...){
#bilanFonctionnementDF<-bfDF;
- t_periodefonctdispositif_per<-object
+ bilanFonctionnementDF<-object
t_periodefonctdispositif_per=bilanFonctionnementDF at data # on recupere le data.frame
t_periodefonctdispositif_per$per_date_debut=as.character(t_periodefonctdispositif_per$per_date_debut)
t_periodefonctdispositif_per$per_date_fin=as.character(t_periodefonctdispositif_per$per_date_fin)
Modified: pkg/stacomir/R/RefDC.r
===================================================================
--- pkg/stacomir/R/RefDC.r 2016-10-02 13:13:27 UTC (rev 225)
+++ pkg/stacomir/R/RefDC.r 2016-10-02 17:15:45 UTC (rev 226)
@@ -57,7 +57,7 @@
" dif_ouv_identifiant,",
" ouv_libelle,",
" dif_code as DF_code,",
- " dic_code ad DC_code",
+ " dic_code as DC_code,",
" dif_localisation,",
" dif_orientation,",
" tdf_libelle as type_DF,",
Modified: pkg/stacomir/inst/examples/bilanFonctionnementDC_example.R
===================================================================
--- pkg/stacomir/inst/examples/bilanFonctionnementDC_example.R 2016-10-02 13:13:27 UTC (rev 225)
+++ pkg/stacomir/inst/examples/bilanFonctionnementDC_example.R 2016-10-02 17:15:45 UTC (rev 226)
@@ -21,7 +21,8 @@
data("bfDC")
plot(bfDC,plot.type="1")
plot(bfDC,plot.type="2")
- plot(bfDC,plot.type="3")
+ plot(bfDC,plot.type="3",main="trial title")
+ plot(bfDC,plot.type="4",main="trial title")
# the following will write in the datawd folder
summary(bfDC)
Modified: pkg/stacomir/inst/examples/bilanFonctionnementDF_example.R
===================================================================
--- pkg/stacomir/inst/examples/bilanFonctionnementDF_example.R 2016-10-02 13:13:27 UTC (rev 225)
+++ pkg/stacomir/inst/examples/bilanFonctionnementDF_example.R 2016-10-02 17:15:45 UTC (rev 226)
@@ -23,8 +23,8 @@
# the following examples work but take a while to compute
\dontrun{
plot(bfDF,plot.type="1")
- plot(bfDF,plot.type="2",title="A nice title")
- plot(bfDF,plot.type="3",title="A nice title")
+ plot(bfDF,plot.type="2",main="A nice title")
+ plot(bfDF,plot.type="3",main="A nice title")
}
Modified: pkg/stacomir/inst/tests/testthat/test-03BilanFonctionnementDF.R
===================================================================
--- pkg/stacomir/inst/tests/testthat/test-03BilanFonctionnementDF.R 2016-10-02 13:13:27 UTC (rev 225)
+++ pkg/stacomir/inst/tests/testthat/test-03BilanFonctionnementDF.R 2016-10-02 17:15:45 UTC (rev 226)
@@ -57,9 +57,9 @@
data(bfDF)
bfDF<-bfDF
plot(bfDF,plot.type="1",silent=TRUE)
- plot(bfDF,plot.type="2",silent=TRUE,title="An example title")
- plot(bfDF,plot.type="3",silent=TRUE,title="An example title")
- plot(bfDF,plot.type="4",silent=TRUE,title="An example title")
+ plot(bfDF,plot.type="2",silent=TRUE,main="An example title")
+ plot(bfDF,plot.type="3",silent=TRUE,main="An example title")
+ plot(bfDF,plot.type="4",silent=TRUE,main="An example title")
})
Modified: pkg/stacomir/inst/tests/testthat/test-04BilanFonctionnementDC.R
===================================================================
--- pkg/stacomir/inst/tests/testthat/test-04BilanFonctionnementDC.R 2016-10-02 13:13:27 UTC (rev 225)
+++ pkg/stacomir/inst/tests/testthat/test-04BilanFonctionnementDC.R 2016-10-02 17:15:45 UTC (rev 226)
@@ -57,9 +57,9 @@
data(bfDC)
bfDC<-bfDC
plot(bfDC,plot.type="1",silent=TRUE)
- plot(bfDC,plot.type="2",silent=TRUE,title="An example title")
- plot(bfDC,plot.type="3",silent=TRUE,title="An example title")
- plot(bfDC,plot.type="4",silent=TRUE,title="An example title")
+ plot(bfDC,plot.type="2",silent=TRUE,main="An example title")
+ plot(bfDC,plot.type="3",silent=TRUE,main="An example title")
+ plot(bfDC,plot.type="4",silent=TRUE,main="An example title")
})
More information about the Stacomir-commits
mailing list