test for extra args

Author: Jordan S Read

R/axis.R

@@ -86,7 +86,7 @@ axis.gsplot <- function(object, ..., n.minor=0, tcl.minor=0.15, reverse=NULL, ap
   user.args[[fun.name]]$n.minor <- n.minor
   user.args[[fun.name]]$tcl.minor <- tcl.minor
 
-  user.args[[fun.name]] <- append(args$call.args[[fun.name]], args$option.args)
+  user.args[[fun.name]] <- append_replace(user.args[[fun.name]], args$option.args)
 
   for(side in sides){
     # append the side and give it defaults if it doesn't exist

tests/testthat/tests-axis.R

@@ -90,6 +90,14 @@ test_that("par args sent to axis() end up in axis args",{
   expect_equal(gs$side.1$axis[["tcl"]], -0.25)
 })
 
+test_that("special args given to axis are retained", {
+  gs <- points(gsplot(), 1, 0) %>% axis(side=1, n.minor = 4)
+  expect_equal(gs$side.1$axis[["n.minor"]], 4)
+  
+  gs <- points(gsplot(), 1, 0) %>% axis(side=1, tcl.minor = -0.136)
+  expect_equal(gs$side.1$axis[["tcl.minor"]], -0.136)
+})
+
 
 test_that("minor ticks get default direction and size from major ticks",{
   # tcl