library(ggplot2)
library(lattice)
PictureBlock <- getFromNamespace("PictureBlock", "teal.reporter")
block <- PictureBlock$new()
block$set_content(ggplot(iris))
PictureBlock <- getFromNamespace("PictureBlock", "teal.reporter")
block <- PictureBlock$new()
block$set_content(bwplot(1))
PictureBlock <- getFromNamespace("PictureBlock", "teal.reporter")
block <- PictureBlock$new()
block$set_content(ggplotGrob(ggplot(iris)))
## ------------------------------------------------
## Method `PictureBlock$set_title`
## ------------------------------------------------
PictureBlock <- getFromNamespace("PictureBlock", "teal.reporter")
block <- PictureBlock$new()
block$set_title("Title")
## ------------------------------------------------
## Method `PictureBlock$get_title`
## ------------------------------------------------
PictureBlock <- getFromNamespace("PictureBlock", "teal.reporter")
block <- PictureBlock$new()
block$get_title()
## ------------------------------------------------
## Method `PictureBlock$set_dim`
## ------------------------------------------------
PictureBlock <- getFromNamespace("PictureBlock", "teal.reporter")
block <- PictureBlock$new()
block$set_dim(c(800, 600))
## ------------------------------------------------
## Method `PictureBlock$get_dim`
## ------------------------------------------------
PictureBlock <- getFromNamespace("PictureBlock", "teal.reporter")
block <- PictureBlock$new()
block$get_dim()
Run the code above in your browser using DataLab