Add summary function

Alan O'Callaghan · Alan O'Callaghan · commit 1a852eb63373 · 2017-12-07T13:16:24.000Z
diff --git a/R/upset.R b/R/upset.R
@@ -311,3 +311,8 @@ print.upset <- function(x, newpage = TRUE) {
     set_metadata_plots = x$set.metadata.plots,
     newpage = newpage)
 }
+
+#' @export
+summary.upset <- function(x) {
+    cat("An object of class `upset`. Call print() to show.")
+}

Original file line number	Diff line number	Diff line change
`@@ -311,3 +311,8 @@ print.upset <- function(x, newpage = TRUE) {`
`311`	`311`	`set_metadata_plots = x$set.metadata.plots,`
`312`	`312`	`newpage = newpage)`
`313`	`313`	`}`
	`314`	`+`
	`315`	`+#' @export`
	`316`	`+summary.upset <- function(x) {`
	`317`	+ cat("An object of class `upset`. Call print() to show.")
	`318`	`+}`