side naming for log.gsplot

Author: Jordan S Read

NAMESPACE

@@ -22,6 +22,7 @@ export(is.gsplot)
 export(legend)
 export(lines)
 export(loadConfig)
+export(log)
 export(mtext)
 export(par)
 export(points)

R/access-gsplot.R

@@ -41,10 +41,23 @@ ylim.gsplot <- function(object){
 #' @aliases log
 #' @name log
 #' @rdname log
-#' @param x a gsplot object
-#' @param base not used
+#' @param object a gsplot object
+#' @param side which side(s) to use (returns logical)
 #' @export
-log.gsplot <- function(x,base){
+log <- function(object, side) {
+  if (is.gsplot(object))
+    UseMethod('log')
+  base::log(x=object, base=side)  
+}
+
+#' @export
+log.gsplot <- function(x, side=NULL){
+  names = unname(sapply(views(x), function(x) paste0('side.',paste(x$window$side[1:2],collapse='.'))))
+  logs = lapply(views(x), function(x) x$window$log) %>% 
+    setNames(names)
 
-  lapply(views(x), function(x) x$window$log)
+  if (!is.null(side)){
+    warning('not yet implemented. Will return boolean for side matches')
+  }
+  return(logs)
 }

man/log.Rd

@@ -2,15 +2,14 @@
 % Please edit documentation in R/access-gsplot.R
 \name{log}
 \alias{log}
-\alias{log.gsplot}
 \title{log for gsplot}
 \usage{
-\method{log}{gsplot}(x, base)
+log(object, side)
 }
 \arguments{
-\item{x}{a gsplot object}
+\item{object}{a gsplot object}
 
-\item{base}{not used}
+\item{side}{which side(s) to use (returns logical)}
 }
 \description{
 get the log for views in gsplot object