R/window_summary_summary.R

In GegznaV/RcmdrPlugin.BioStat: R Commander Plug-in for Basic Data Management and Analysis Tasks

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#' @rdname Menu-window-functions
#' @export
#' @keywords internal
window_summary_summary <- function() {

  .ds <- active_dataset_0()
  command <-
    str_glue(
      "## The summary of variables in '{.ds}'\n",
      "summary({.ds})"
    ) %>%
    style_cmd()

  doItAndPrint(command)

}