[Stacomir-commits] r273 - pkg/stacomir/R

[noreply at r-forge.r-project.org]

Author: timothee_besse
Date: 2017-02-02 11:53:04 +0100 (Thu, 02 Feb 2017)
New Revision: 273

Modified:
   pkg/stacomir/R/BilanMigration.r
   pkg/stacomir/R/fungraph.r
Log:
Corrections bugs

Modified: pkg/stacomir/R/BilanMigration.r
===================================================================
--- pkg/stacomir/R/BilanMigration.r	2017-02-02 10:41:51 UTC (rev 272)
+++ pkg/stacomir/R/BilanMigration.r	2017-02-02 10:53:04 UTC (rev 273)
@@ -310,7 +310,7 @@
 #' @author cedric.briand
 #' @export
 setMethod("print",signature=signature("BilanMigration"),definition=function(x,...){ 
-			sortie1<-"bilanMigration=new('bilanMigration')\n"
+			sortie1<-"bilanMigration=new('BilanMigration');"
 			sortie2<-stringr::str_c("bilanMigration=choice_c(bilanMigration,",
 					"dc=c(",stringr::str_c(x at dc@dc_selectionne,collapse=","),"),",
 					"taxons=c(",stringr::str_c(shQuote(x at taxons@data$tax_nom_latin),collapse=","),"),",

Modified: pkg/stacomir/R/fungraph.r
===================================================================
--- pkg/stacomir/R/fungraph.r	2017-02-02 10:41:51 UTC (rev 272)
+++ pkg/stacomir/R/fungraph.r	2017-02-02 10:53:04 UTC (rev 273)
@@ -67,8 +67,8 @@
 	} else {
 		axis(side=1)
 	}  	
-	mtext(text=gettextf("Sum of numbers =%s",
-					round(sum(tableau$MESURE,tableau$CALCULE,tableau$EXPERT,tableau$PONCTUEL,na.rm=TRUE),domain="R-stacomiR")),
+	mtext(text=gettextf("Sum of numbers =%s",domain="R-stacomiR"),
+					round(sum(tableau$MESURE,tableau$CALCULE,tableau$EXPERT,tableau$PONCTUEL,na.rm=TRUE)),
 			side=3,
 			col=RColorBrewer::brewer.pal(5,"Paired")[5],
 			cex=0.8)