tests/testthat/test-geom_primary_layout.R

In hdi-lab/uncertainty-gog: A Probabilistic Grammar of Graphics

context("test-geom_primary_layout")
library(rlang)
library(tidyverse)

# m3 <- list()
# m3$height <- list(expr(P(C|A, D)))
# m3$x <- list(expr(A))
# m3$y <- list(expr(D))

# foo <- function(...){
#   rlang::expr(...)
# }

# TODO
# test_that("parsing things connect to ggplot", {
#
#   res <- ggplot(mtcars) +
#     geom_bloc(aes(height = c(P(carb | gear, cyl), P(cyl|gear)), x = c(gear)))
#   expect_null(res)
# })