add summary to MWController object

TitouanRobert · Aug 11, 2017 · 3e4a896 · 3e4a896
1 parent a7cd48d
commit 3e4a896
Show file tree

Hide file tree

Showing 3 changed files with 34 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(summary,MWController)
 export(combineWidgets)
 export(combineWidgetsOutput)
 export(compareOptions)

diff --git a/R/controller.R b/R/controller.R
@@ -337,3 +337,20 @@ knit_print.MWController <- function(x, ...) {
   x$init()
   knitr::knit_print(x$returnCharts(), ...)
 }
+
+#' summary method for MWController object
+#'
+#' @param object MWController object
+#' @param ... Not use
+#'
+#' @export
+summary.MWController <- function(object, ...) {
+  cat("List of inputs : \n\n")
+  sapply(names(object$inputList$inputs), function(X){
+    cat(paste0("Input : ", X, "\n"))
+  })
+  cat(paste0("\nNumber of chart(s) : ", object$ncharts, "\n"))
+  cat(paste0("Number of row(s) : ", object$nrow, "\n"))
+  cat(paste0("Number of column(s) : ", object$ncol, "\n"))
+}
+
diff --git a/man/summary.MWController.Rd b/man/summary.MWController.Rd