fix for missing data exchange in examples

Sebastian Kopf · Sebastian Kopf · commit 15392dcf8483 · 2014-04-24T00:07:52.000-07:00
without exchanging the data in p2 with the updated msleep data frame,
the facet_grid won't recognize the conservation2 variable
diff --git a/R/facet-labels.r b/R/facet-labels.r
@@ -141,9 +141,9 @@ label_wrap_gen <- function(width = 25) {
 #' library(plyr)
 #' msleep$conservation2 <- revalue(msleep$conservation, conservation_status)                         
 #'
-#' p2 + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))
+#' p2 %+% msleep + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))
 #' 
-#' p2 + facet_grid(vore ~ conservation2, 
+#' p2 %+% msleep + facet_grid(vore ~ conservation2, 
 #'   labeller=labeller(conservation2=label_wrap_gen(10) ))
 #' 
 labeller <- function(..., keep.as.numeric=FALSE) {
diff --git a/man/labeller.Rd b/man/labeller.Rd
@@ -74,9 +74,9 @@ p2 + facet_grid(vore ~ conservation,
 library(plyr)
 msleep$conservation2 <- revalue(msleep$conservation, conservation_status)
 
-p2 + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))
+p2 \%+\% msleep + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))
 
-p2 + facet_grid(vore ~ conservation2,
+p2 \%+\% msleep + facet_grid(vore ~ conservation2,
   labeller=labeller(conservation2=label_wrap_gen(10) ))
 }
 

Original file line number	Diff line number	Diff line change
`@@ -74,9 +74,9 @@ p2 + facet_grid(vore ~ conservation,`
`74`	`74`	`library(plyr)`
`75`	`75`	`msleep$conservation2 <- revalue(msleep$conservation, conservation_status)`
`76`	`76`
`77`		`-p2 + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))`
	`77`	`+p2 \%+\% msleep + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))`
`78`	`78`
`79`		`-p2 + facet_grid(vore ~ conservation2,`
	`79`	`+p2 \%+\% msleep + facet_grid(vore ~ conservation2,`
`80`	`80`	`labeller=labeller(conservation2=label_wrap_gen(10) ))`
`81`	`81`	`}`
`82`	`82`