tests/testthat/test-access_gsplot.R

In USGS-R/gsplot: Geological Survey Plotting

context("test get xlim for gsplot object")
test_that("xlim for single axis", {
  
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat')
  
  expect_equal(xlim(usrDef)[[1]], c(1,1))
  
  usrDef <- points(usrDef,x=3:10,y=4:11, side=c(3,2))
  
  expect_equal(xlim(usrDef)[[1]], c(1,10))
  
})

test_that("lim for single axis", {
  
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat')
  
  expect_is(lim(usrDef), 'list')
  expect_is(lim(usrDef, 3), 'numeric')
  
  usrDef <- points(usrDef,x=3:10,y=4:11, side=c(3,2))
  
  expect_equal(lim(usrDef, 3), c(1,10))
  
})


test_that("xlim for dual axis", {
  
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat') %>% 
    points(x=3:10,y=4:11, side=c(1,2))
  
  expect_equal(xlim(usrDef)[[1]], c(1,1))
  expect_equal(xlim(usrDef)[[2]], c(3,10))
  
  
  
})

test_that("limits sort for user side arguments", {
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat') %>% 
    points(x=3:10,y=4:11, side=c(1,2))
  
  expect_is(lim(usrDef, side = c(1,3)), 'list')
  
  expect_equal(names(lim(usrDef, side = c(1,3))), as.side_name(c(1,3)))
  expect_equal(names(lim(usrDef, side = c(3,1))), as.side_name(c(3,1)))
  
})

test_that("lim for classes", {
  
  usrDef <- gsplot() %>% 
    points(x=as.Date('1990-01-01'), y=2) %>% 
    points(x=as.Date('1995-01-01'),y=4)
  
  expect_is(xlim(usrDef, 1), 'Date')
  
  usrDef <- gsplot() %>% 
    points(x=as.POSIXct('1990-01-01'), y=2) %>% 
    points(x=as.POSIXct('1995-01-01'),y=4)
  
  expect_is(xlim(usrDef, 1), 'POSIXct')
  
})


test_that("xlim for string input", {
  
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat') %>% 
    points(x=3:10,y=4:11, side=c(1,2))
  
  expect_equal(xlim(usrDef)[['side.3']], c(1,1))
  expect_equal(xlim(usrDef, side = 3), c(1,1))
  expect_equal(xlim(usrDef, side = 1), c(3,10))
  
})

context("test labels for gsplot")

test_that("xlab for simple object",{
  
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat') %>% 
    points(x=3:10,y=4:11, side=c(1,2))
  
  expect_equal(xlab(usrDef, 3), 'cat')
  expect_equal(xlab(usrDef, 1),"")
  expect_is(xlab(usrDef), 'list')
  expect_equal(ylab(usrDef, 2),"")
})


context("test get par for gsplot object")

test_that("par for simple object",{
  expect_equal(par(gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r'))$xaxs,'r')
  expect_is(par(gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r')), 'list')
})

context("test get logged for gsplot object")

test_that("logged for simple object",{
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat') %>% 
    points(x=3:10,y=4:11, side=c(1,2))
  expect_false(logged(usrDef, 1))
  expect_false(logged(usrDef, 2))
  
  expect_is(logged(usrDef), 'list')
  expect_is(logged(usrDef, c(1,2)), 'list')
  expect_is(logged(usrDef, 1), 'logical')
  
  usrDef <- lines(usrDef,1:2,4:5, side=c(3,2), log='xy')
  expect_false(logged(usrDef, 1))
  expect_true(logged(usrDef, 2))
  expect_true(logged(usrDef, 3))
  
})

test_that("logged side extractor ",{
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat',log='y') %>% 
    points(x=3:10,y=4:11, side=c(1,2), log='xy')
  expect_true(logged(usrDef, side=1))
  expect_false(logged(usrDef, side=3))
  
  dual = logged(usrDef, side=c(1,2))
  expect_equal(length(dual), 2)
  expect_true(all(unlist(dual)))
})

test_that("summary ",{
  usrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% 
    points(x=1, y=2, side=c(3,2), legend.name="Points 1", cex=3, xlab='cat',log='y') %>% 
    points(x=3:10,y=4:11, side=c(1,2), log='xy')
  expect_output(summary(usrDef),regexp = "2 views:")
})

test_that("users can access metadata", {
  gs <- gsplot()
  expect_equal(what_date(gs), Sys.Date())
  
  old.version <- "0.5.2"
  gs2 <- gsplot(gsplot.version=old.version)
  expect_equal(what_version(gs2), old.version)
  
  old.date <- as.Date("2010-10-21")
  gs3 <- gsplot(created=old.date)
  expect_equal(what_date(gs3), old.date)
})