tests/testthat/test-basic.R

In zzawadz/customLayout: Arrange Elements on the R's Drawing Area or Inside the 'PowerPoint' Slide

library(testthat)

test_that("Combine two layouts", {
  
  l1 <- lay_new(matrix(c(1:2),ncol = 2),widths=c(4,1))
  l2 <- lay_new(matrix(c(1:4),ncol = 2),widths=c(1,1))
  lb <- lay_bind_col(l1,l2, widths = c(2,1))
  
  expect_equal(lb$widths, c(16, 4, 5, 5))
  expect_equal(sum(lb$widths[1:2]) / sum(lb$widths[3:4]), 2)
})

test_that("Check erros in lay_new", {
  expect_error(lay_new(matrix(c(1:2),ncol = 2),widths = c(4,1,1)))
  expect_error(lay_new(matrix(c(1:2),ncol = 2),heights = c(4,1)))
})

make_basic_test <- function(fnc) {
  function() {
    l1 <- lay_new(
      matrix(c(1:4), ncol = 2),
      widths = c(4, 1))
    l2 <- lay_new(
      matrix(c(1:4), ncol = 2),
      widths = c(1, 1), heights = c(3,1))
    l3 <- fnc(l1, l2)
    lay_show(l3)
  }
}

test_that("Basic bind", {
  testthat::skip_on_appveyor()
  testthat::skip_on_cran()
  vdiffr::expect_doppelganger(
    "basic bind col",
    make_basic_test(lay_bind_col)
  )
  
  vdiffr::expect_doppelganger(
    "basic bind row",
    make_basic_test(lay_bind_row)
  )
})

if(require(ggplot2)) {
  
  library(ggplot2)
  
  basic_grid_layout <- function() {
    l1 <- lay_new(matrix(1:2, ncol = 1), heights = c(2, 3))
    l2 <- lay_new(matrix(1:2, ncol = 1), heights = c(1, 3))
    l3 <- lay_bind_col(l1, l2)

    pl1 <- qplot(mpg, wt, data = mtcars)
    pl2 <- qplot(mpg, gear, data = mtcars)
    pl3 <- qplot(cyl, gear, data = mtcars)
    pl4 <- qplot(qsec, am, data = mtcars)

    lay_grid(list(pl1, pl2, pl3, pl4), l3)
  }
  
  test_that("Basic grid", {
    vdiffr::expect_doppelganger(
      "basic grid layout",
      basic_grid_layout
    )
  })
  
}