las for axis in yaml & logic for calling functions updated

Author: Lindsay Carr

R/print.R

@@ -68,9 +68,9 @@ print.gsplot <- function(x, ...){
 
     # -- call functions -- 
 
-    if((sum(view.info$x.side.defined.by.user[i], view.info$y.side.defined.by.user[i])== 0 ) &
-       (class(window$xlim) == "numeric" & class(window$ylim) == "numeric") | 
-       !(any(names(plots) %in% 'grid'))){
+#     if((sum(view.info$x.side.defined.by.user[i], view.info$y.side.defined.by.user[i])== 0 ) &
+#        (class(window$xlim) == "numeric" & class(window$ylim) == "numeric") | 
+      if(!(any(names(plots) %in% 'grid'))){
       to_gsplot(lapply(plots, function(x) x[!names(x) %in% 'legend.name']))
     } else {
       draw_custom_grid(views,i)

inst/extdata/default.yaml

@@ -22,6 +22,7 @@ axis:
   line: NULL 
   pos: NULL
   outer: FALSE
+  las: 1
 title: NULL
 text: NULL
 mtext: