# NOT RUN {
### Prompts are listed to clarify when something is eval'd locally vs
### remotely
> library(remoter, quietly = TRUE)
> client()
remoter> rpng.new(plot(1:5))
remoter> dev.newc(width = 6, height = 4)
remoter> a <- function() plot(iris$Sepal.Length, iris$Petal.Length)
remoter> rpng.new(a, width = 6 * 72, height = 4 * 72)
remoter> dev.curc()
remoter> dev.listc()
remoter> dev.offc()
remoter> q()
>
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab