library(ggbash)
library(futile.logger)
context("test-ggbash")
test_that("ggbash", {
expect_equal(exec_ggbash("exit"), TRUE)
expect_equal(exec_ggbash("quit"), TRUE)
expect_equal(exec_ggbash("q"), TRUE)
expect_output(exec_ggbash("show iris"), "setosa")
expect_message(
capture.output(
exec_ggbash(
"gg iris + p Sepal.W Sepal.L | echo")), "geom_point")
expect_message(exec_ggbash("echo hi"), "hi")
expect_equal(exec_ggbash("gg iris + p Sepal.W Sepal.L | copy"), FALSE)
expect_equal(exec_ggbash("gg iris + p Sepal.W Sepal.L"), FALSE)
out <- ggbash("gg iris + point Sepal.W Sepal.L + line Sepal.W Sepal.L", as_string = TRUE)
expect_equal(
out,
paste0(
"ggplot(iris) + geom_point(aes(x=Sepal.Width, y=Sepal.Length))",
" + geom_line(aes(x=Sepal.Width, y=Sepal.Length))"))
expect_message(
ggbash("gg iris + point Petal.Width Petal.Length", clipboard = 1),
"copied to clipboard")
out <- ggbash("gg mtcars x=mpg y=cyl + point + smooth", as_string = TRUE)
expect_equal(out,
paste0("ggplot(mtcars, aes(mpg, cyl)) + ",
"geom_point() + geom_smooth()"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.