tests/testthat/test-modify_side.R

In USGS-R/gsplot: Geological Survey Plotting

context("modify_side")

test_that("modify side does nothing", {
  gs <- gsplot()
  gs <- lines(gs, c(1,10), c(1,10))
  gs <- gsplot:::modify_side(gs, side=c(1,2), args=list(xlim=c(0,12)))
  expect_equal(gs$side.1$lim, c(0,12))
})