R/Section.R

In gpaux/Mediana: Clinical Trial Simulations

#' Section object
#'
#' This function creates an object of class \code{Section} which can be added
#' to an object of class \code{PresentationModel}.
#'
#' Objects of class \code{Section} are used in objects of class
#' \code{PresentationModel} to define how the results will be presented in the
#' report. If a \code{Section} object is added to a \code{PresentationModel}
#' object, the report will have sections according to the parameter defined in
#' the \code{by} argument. A single object of class \code{Section} can be added
#' to an object of class \code{PresentationModel}.
#'
#' One or several parameters can be defined in the \code{by} argument:
#' \itemize{ \item \code{"sample.size"} \item \code{"event"} \item
#' \code{"outcome.parameter"} \item \code{"design.parameter"} \item
#' \code{"multiplicity.adjustment"} }
#'
#' @param by defines the parameter to create the section in the report.
#' @seealso See Also \code{\link{PresentationModel}}.
#' @references \url{http://gpaux.github.io/Mediana/}
#' @examples
#'
#' # Reporting
#' presentation.model = PresentationModel() +
#'   Section(by = "outcome.parameter") +
#'   Table(by = "sample.size") +
#'   CustomLabel(param = "sample.size",
#'               label= paste0("N = ",c(50, 55, 60, 65, 70))) +
#'   CustomLabel(param = "outcome.parameter",
#'               label=c("Standard 1", "Standard 2"))
#'
#' # In this report, one section will be created for each outcome parameter assumption.
#'
#'
#' @export Section
Section = function(by) {

  # Error checks
  if (!is.character(by)) stop("Section: by must be character.")
  if (!any(by %in% c("sample.size", "event", "outcome.parameter", "design.parameter", "multiplicity.adjustment"))) stop("Section: the variables included in by are invalid.")

  section.report = list(by = by)

  class(section.report) = "Section"
  return(section.report)
  invisible(section.report)
}