if (interactive()) {
library(grid)
library(gWidgets)
# Create a grob object
l <- linesGrob()
# Create the notebook widget
win <- gwindow()
nb <- gnotebook(cont = win)
notebookVis(nb = nb, plt = l, type = "Example", suff = 1)
}
Run the code above in your browser using DataLab