tests/testthat/test-dogfood-v0.4.R

In caprice-j/ggbash: A Simpler Syntax for ggplot2

library(ggbash)
context("dogfood-v0.4")

suppressPackageStartupMessages( library(dplyr) )

assign("iris2",
       iris %>%
           rename(green.width = Sepal.Width, green.length = Sepal.Length,
                  bloom.width = Petal.Width, bloom.length = Petal.Length),
       envir = .GlobalEnv)


test_that("NSE", {

    ee(find_first_by_prefix("p", c("price", "p")), 2)

    assign("test_df",
           data.frame( x = 1:10, y = 11:20, gr = c(rep(1,5), rep(2,5)) ),
           envir = .GlobalEnv)

    # test_df %>% ggbash(gg() + p(x=x, y=y, group=1) + line(x=x, y=y, group=1))

    iris %>% ggbash(gg(x=Sepal.W, y=Sepal.L) + p() + line)

    # Gelman 1.1a.
    data.frame( y = seq(-7, 10, .02) ) %>%
        #     P(y=1) = P(θ=1)    P(y=1|θ=1)   + P(θ=2)    P(y=1|θ=2)
        mutate( dens =  .5  *  dnorm(y, 1, 2) +  .5  *  dnorm(y, 2, 2) ) %>%
        ggbash(gg(x=y, y=dens) + point)

    ee(
        ggbash(gg(iris)
               + p(Sepal.W, Sepal.L)
               + p(green.w, green.l, data=iris2)
               + p(green.w, Sepal.L, data=bind_cols(iris, iris2), color="blue"),
               as_string = TRUE),
        "ggplot(iris) + geom_point(aes(x=Sepal.Width, y=Sepal.Length))" %++%
        " + geom_point(aes(x=green.width, y=green.length), data=iris2)" %++%
        " + geom_point(aes(x=green.width, y=Sepal.Length), " %++%
        "data=bind_cols(iris,iris2), colour=\"blue\")"
    )


    ee(bash(ggplot(iris) + geom_point(aes(Sepal.Width, Sepal.Length), colour="red")),
       "ggplot(iris) + geom_point(aes(x=Sepal.Width, y=Sepal.Length), colour=\"red\")")
    ee(
        bash(ggplot(iris)
             + geom_point(aes(Sepal.Width, Sepal.Length), colour="red")
             + theme(text = element_text(size=20))),
        "ggplot(iris) + geom_point(aes(x=Sepal.Width, y=Sepal.Length), " %++%
            "colour=\"red\") + theme(text = element_text(size=20))"
    )
    ee(
        bash(ggplot(iris)
             + geom_point(aes(Sepal.Width, Sepal.Length), colour="red")
             + theme(axis.ticks.length = unit(.85, "cm"))),
        "ggplot(iris) + geom_point(aes(x=Sepal.Width, y=Sepal.Length)," %++%
        " colour=\"red\") + theme(axis.ticks.length = grid::unit(0.85,'cm'))"
    )
    # bash(ggplot(iris) + geom_point(aes(Sepal.Width, Sepal.Length), colour="red") + theme(panel.ontop = TRUE))
    # bash(ggplot(iris) + geom_point(aes(Sepal.Width, Sepal.Length, colour=Species)) + theme(legend.position = "bottom") )
    # MAYBE-LATER RStudio's auto completion inserts = after conf name

    ee( bash(g(iris) + p(Sepal.W, Sepal.L) + theme(txt(c="blue"))),
        "ggplot(iris) + geom_point(aes(x=Sepal.Width, y=Sepal.Length))" %++%
            " + theme(text = element_text(colour=\"blue\"))"
    )

    # FIXME c matches to face in theme names
    # ggbash(g(iris) + p(Sepal.W, Sepal.L, c="red") + theme(a.txt(c="blue")))
    # FIXME mention about aes and element_text removal in documents after written this

    ee(bash(gg(mtcars) + rect(xmin=wt-5, xmax=wt+5, ymin=am-5, ymax=am+5)),
       "ggplot(mtcars) + geom_rect(aes(xmin=wt-5, xmax=wt+5, " %++%
                                      "ymin=am-5, ymax=am+5))")

    # the
    #ggplot(mtcars) + geom_point(aes(mpg,wt)) + theme2(axis.title(sz=20), txt())

})