methods for S7 classes (#430)

Author: teunbrand

NAMESPACE

@@ -1,6 +1,8 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method("&","ggplot2::gg")
 S3method("&",gg)
+S3method("*","ggplot2::gg")
 S3method("*",gg)
 S3method("-",ggplot)
 S3method("/",ggplot)

R/arithmetic.R

@@ -141,3 +141,9 @@ NULL
   }
   e1 + e2
 }
+
+#' @export
+"*.ggplot2::gg" <- `*.gg`
+
+#' @export
+"&.ggplot2::gg" <- `&.gg`