164 Add the list of all possible methods (blocks) for ReportCard

R/LoadReporterModule.R

@@ -132,7 +132,6 @@ load_json_report <- function(reporter, zip_path, filename) {
         )
       }
     )
-
   } else {
     shiny::showNotification("Failed to load the Reporter file.", type = "error")
   }

R/SimpleReporter.R

@@ -37,8 +37,7 @@ NULL
 #' @rdname simple_reporter
 #' @export
 simple_reporter_ui <- function(
-    id
-) {
+    id) {
   ns <- shiny::NS(id)
   shiny::tagList(
     shiny::singleton(
@@ -73,8 +72,7 @@ simple_reporter_srv <- function(
       author = "NEST", title = "Report",
       date = as.character(Sys.Date()), output = "html_document",
       toc = FALSE
-    )
-) {
+    )) {
   shiny::moduleServer(
     id,
     function(input, output, session) {

vignettes/teal-reporter-blocks-overview.Rmd

@@ -0,0 +1,66 @@
+---
+title: "Comprehensive Overview of Content Blocks in `teal.reporter`"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{Comprehensive Overview of Content Blocks in teal.reporter}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+## Overview of Content Blocks
+This document serves as a comprehensive guide to the various types of content blocks available in the `teal.reporter`. 
+These blocks allow users to structure and customize reports.
+
+## Table: Content Blocks in `teal.reporter`
+The following table outlines the different blocks that can be included in a `ReportCard`, 
+along with descriptions and usage examples:
+
+| **Block Type** | **Description** | **Usage Example** |
+  |----------------|----------------|-------------------|
+  | **`ReportCard`** | Combines various content blocks into a single card. | `report_card <- ReportCard$new()` |
+  | **`TextBlock`** | Adds text-based content to the report. | `report_card$append_text(<text>)` |
+  | **`PictureBlock`** | Contains graphical content like plots or diagrams. | `report_card$append_plot(<plot>)` |
+  | **`RcodeBlock`** | Embeds R code directly into the report. | `report_card$append_rcode(<code text>, echo = FALSE)` |
+  | **`NewpageBlock`** | Marks a new page in the report for organization purposes. | `report_card$append_content(<ContentBlock e.g NewpageBlock$new()>)` |
+  | **`TableBlock`** | Holds and displays tabular data. | `report_card$append_table(<table>)` |
+
+ These blocks form the building blocks of a `ReportCard`, each serving a specific function that contributes to the overall layout and content of the report. The `ReportCard` object utilizes `append_*` methods to integrate various blocks such as `TextBlock`, `PictureBlock`, `RcodeBlock`, and `TableBlock`.
+
+The following diagram illustrates the inheritance relationship between the different blocks:
+```{r echo=FALSE, out.width='60%'}
+knitr::include_graphics("./images/blocks.png")
+```
+
+## Global `knitr` Options
+To ensure consistency and control over the rendering of markdown elements within reports, teal.reporter adheres to the following default global `knitr` options:
+
+To access the default values for the `global_knitr` defaults include:
+* echo: displays the code along with its output (`echo = TRUE`).
+* tidy: formats the `R` code for readability using the `formatR` package if installed (`tidy = TRUE`), otherwise set to `FALSE`.
+* width cutoff: sets the maximum number of characters per line in the code output (`tidy.opts = list(width.cutoff = 60)`).
+
+You can access and modify these settings as follows:
+```{r}
+library(teal.reporter)
+getOption("teal.reporter.global_knitr")
+```
+
+## Example Report Using Multiple Content Blocks
+Below is a complete example demonstrating how to create a report combining various content blocks:
+
+```{r}
+library(ggplot2)
+
+report_card <- ReportCard$new()
+
+report_card$append_text("Header 2 text", "header2")
+report_card$append_text("A paragraph of default text")
+report_card$append_plot(
+  ggplot(airquality, aes(x = Ozone, y = Solar.R)) +
+    geom_line(na.rm = TRUE)
+)
+report_card$append_table(airquality)
+report_card$append_rcode("airquality_new <- airquality", echo = FALSE)
+report_card$append_metadata(key = "lm", value = lm(Ozone ~ Solar.R, airquality))
+report_card$get_content()
+```