tests/testthat/test-ggmatrix_getput.R

In GGally: Extension to 'ggplot2'

data(tips)

test_that("stops", {
  pm <- ggpairs(tips)
  p <- ggally_blankDiag()
  expect_error(pm["total_bill", 1], "`i` may only be a single")
  expect_error(pm[1, "total_bill"], "`j` may only be a single")
  expect_error(pm["total_bill", 1] <- p, "`i` may only be a single")
  expect_error(pm[1, "total_bill"] <- p, "`j` may only be a single")

  pm <- ggduo(tips, 1:3, 1:4)
  expect_error(pm[0, 1], "`i` may only be in the range")
  expect_error(pm[1, 0], "`j` may only be in the range")
  expect_error(pm[5, 1], "`i` may only be in the range")
  expect_error(pm[1, 4], "`j` may only be in the range")

  for (i in 1:4) {
    for (j in 1:3) {
      expect_silent({
        p <- pm[i, j]
      })
    }
  }
})


test_that("get", {
  a <- ggpairs(
    tips,
    1:4,
    axisLabels = "show"
  )
  p <- a[2, 1]
  labs <- get_labs(p)
  expect_equal(labs$x, "total_bill")
  expect_equal(labs$y, "tip")

  # test odd input and retrieve it
  a[2, 1] <- 1:4
  expect_error(
    {
      a[2, 1]
    },
    "unknown plot object type"
  )
})

test_that("put", {
  a <- ggpairs(
    tips,
    1:4,
    axisLabels = "show"
  )
  txt <- "My Custom Plot"
  a[2, 1] <- ggally_text(txt)
  p <- a[2, 1]
  expect_equal(get("aes_params", envir = p$layers[[1]])$label, txt)
})