diff --git a/NAMESPACE b/NAMESPACE index bc08fa6..b3c938a 100644 --- 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 index 5ab3d2f..99fa6cc 100644 --- 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 new file mode 100644 index 0000000..fee0b5d --- /dev/null +++ b/man/summary.MWController.Rd @@ -0,0 +1,16 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/controller.R +\name{summary.MWController} +\alias{summary.MWController} +\title{summary method for MWController object} +\usage{ +\method{summary}{MWController}(object, ...) +} +\arguments{ +\item{object}{MWController object} + +\item{...}{Not use} +} +\description{ +summary method for MWController object +}