gsplot: Geological Survey Plotting

context("legend")

#test_that("graphics examples work", {
#  plot(-4:4, -4:4, type = "n")  # setting up coord. system
#  lines(c(0,0), y=c(2,5), col="yellow")
#  lines(c(3,4,3), c(2,4,6), col="blue")
#  points(rnorm(200), rnorm(200), col = "green", pch=3)
#  points(rnorm(200), rnorm(200), col = "red", pch=7)
#  legend(location="bottom")
#  bottom
        
#})

test_that("gsplot legend works", {
  
  gs <- gsplot() %>%  
    points(x=1, y=2, legend.name="Points 1", pch=1, col="blue") %>% 
    points(x=3, y=4, legend.name="Points 2", pch=5, col="red") %>%  
    error_bar(3,4, y.high=0.2, y.low=0.3, legend.name="Errors", text.font=2) %>% 
    rect(2,3,2.5,4, col="blue", border="orange", lwd=3, density=15, legend.name="rectangle")  %>% 
    legend(location="bottomright", bg="lightgrey")
  
  expect_is(gs, "gsplot")
  expect_equal(gs$legend$legend.auto$bg, "lightgrey")
  expect_equal(gs$legend$legend.auto$location, "bottomright")
  expect_equal(gs$legend$legend.auto$fill[[1]], quote(par("bg")))
  expect_true(is.na(gs$legend$legend.auto$lwd[4]))
  expect_true(is.na(gs$legend$legend.auto$density[2]))
  expect_equal(gs$legend$legend.auto$text.font[[3]], 2)
  # text.font not changing + error_bar comes through as "arrows" for legend.name
 
})

test_that("gsplot legend args are still the same", {
  
  overall.legend <- c("x", "y", "bty", "bg", "box.lty", "box.lwd", "box.col", "cex",
                      "xjust", "yjust", "x.intersp", "y.intersp", "adj", "text.width", 
                      "merge", "trace", "plot", "ncol", "horiz", "title", "inset", 
                      "xpd", "title.col", "title.adj", "seg.len")  
  
  fun.specific <- c("legend", "fill", "col", "border", "lty", "lwd", "pch", "angle", 
                    "density", "pt.bg", "pt.cex", "pt.lwd", "text.col", "text.font")
  
  all.formals <- names(formals(graphics::legend))

  expect_equal(length(all.formals[!all.formals %in% overall.legend]), length(fun.specific)) 
  
  expect_equal(length(all.formals[!all.formals %in% fun.specific]), length(overall.legend)) 
  
})

test_that("testing legend config", {
  
  
  gsp <- gsplot(config.file = system.file("extdata", "lineScatter.yaml", package = "gsplot")) %>%
    points(1:10,1:10,legend="Thing") %>%
    legend()
  
  expect_true(gsp$global$config$config.file)
  expect_equal(gsp$legend$legend.auto$title, "EXPLANATION")
  
})