# NOT RUN {
### Prompts are listed to clarify when something is eval'd locally vs
### remotely
> # suppressMessages(library(remoter, quietly = TRUE))
> # client()
> remoter::client("192.168.56.101")
remoter> plot(1:5)
remoter> rpng.off()
remoter> rpng()
remoter> plot(iris$Sepal.Length, iris$Petal.Length)
remoter> rpng.off()
remoter> library(ggplot2)
remoter> g1 <- ggplot(iris, aes(x = Sepal.Length, y = Petal.Length,
remoter+ color = Species)) +
remoter+ geom_point(aes(shape = Species))
remoter> rpng()
remoter> print(g1)
remoter> rpng.off()
remoter> g1 + geom_smooth(method = "lm")
remoter> rpng.new(plot(1:5))
remoter> rpng.new(g1)
remoter> b <- function() plot(iris$Sepal.Length, iris$Petal.Length)
remoter> rpng.new(b)
remoter> da <- data.frame(x = rnorm(100), y = rnorm(100))
remoter> g2 <- ggplot(da, aes(x, y)) + geom_point()
remoter> g2
remoter> pdf()
remoter> g2
remoter> print(g2 + geom_line())
remoter> dev.off()
remoter> q()
>
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace