test and code for #263

Author: Jordan S Read

R/calc_views.R

@@ -187,6 +187,8 @@ unname_c <- function(list){
   do.call(c, unname(list))
 }
 views_with_side <- function(views, side){
+  if(length(side) > 1)
+    stop('side can only be length of 1')
   with.side = lapply(views, function(x) any(x[['window']][['side']] %in% side))
   view.match = unname(unlist(with.side[names(with.side) == 'view']))
   if (is.null(view.match) || !any(view.match))

tests/testthat/test-views_with_side.R

@@ -0,0 +1,11 @@
+context("views_with_side")
+test_that("views with side retains order", {
+  
+  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(4,3,side=1,2)
+  expect_error(gsplot:::views_with_side(usrDef,c(1,3)))
+  expect_equal(gsplot:::views_with_side(usrDef,3), 1)
+  expect_equal(gsplot:::views_with_side(usrDef,1), 2)
+  
+})