ReportCard: An R6 class for building report elements

This R6 class that supports creating a report card containing text, plot, table and metadata blocks that can be appended and rendered to form a report output from a shiny app.

Methods

Public methods

ReportCard$new()
ReportCard$append_table()
ReportCard$append_plot()
ReportCard$append_text()
ReportCard$append_rcode()
ReportCard$append_content()
ReportCard$get_content()
ReportCard$reset()
ReportCard$get_metadata()
ReportCard$append_metadata()
ReportCard$get_name()
ReportCard$set_name()
ReportCard$to_list()
ReportCard$from_list()
ReportCard$clone()

Method `new()`

Initialize a ReportCard object.

Usage

ReportCard$new()

Returns

Object of class ReportCard, invisibly.

Examples

card <- ReportCard$new()

Method `append_table()`

Appends a table to this ReportCard.

Usage

ReportCard$append_table(table)

Arguments

table: A (data.frame or rtables or TableTree or ElementaryTable or listing_df) that can be coerced into a table.

Returns

self, invisibly.

Examples

card <- ReportCard$new()$append_table(iris)

Method `append_plot()`

Appends a plot to this ReportCard.

Usage

ReportCard$append_plot(plot, dim = NULL)

Arguments

plot: (ggplot or grob or trellis) plot object.
dim: (numeric(2)) width and height in pixels.

Returns

self, invisibly.

Examples

library(ggplot2)

card <- ReportCard$new()$append_plot(
  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
)

Method `append_text()`

Appends a text paragraph to this ReportCard.

Usage

ReportCard$append_text(text, style = TextBlock$new()$get_available_styles()[1])

Arguments

text: (character) The text content to add.
style: (character(1)) the style of the paragraph. One of: default, header, verbatim

Returns

self, invisibly.

Examples

card <- ReportCard$new()$append_text("A paragraph of default text")

Method `append_rcode()`

Appends an R code chunk to ReportCard.

Usage

ReportCard$append_rcode(text, ...)

Arguments

text: (character) The R code to include.
...: Additional rmarkdown parameters for formatting the R code chunk.

Returns

self, invisibly.

Examples

card <- ReportCard$new()$append_rcode("2+2", echo = FALSE)

Method `append_content()`

Appends a generic ContentBlock to this ReportCard.

Usage

ReportCard$append_content(content)

Arguments

content: (ContentBlock) object.

Returns

self, invisibly.

Examples

NewpageBlock <- getFromNamespace("NewpageBlock", "teal.reporter")
card <- ReportCard$new()$append_content(NewpageBlock$new())

Method `get_content()`

Get all content blocks from this ReportCard.

Usage

ReportCard$get_content()

Returns

list() list of TableBlock, TextBlock and PictureBlock.

Examples

card <- ReportCard$new()$append_text("Some text")$append_metadata("rc", "a <- 2 + 2")

card$get_content()

Method `reset()`

Clears all content and metadata from ReportCard.

Usage

ReportCard$reset()

Returns

self, invisibly.

Method `get_metadata()`

Get the metadata associated with ReportCard.

Usage

ReportCard$get_metadata()

Returns

named list list of elements.

Examples

card <- ReportCard$new()$append_text("Some text")$append_metadata("rc", "a <- 2 + 2")

card$get_metadata()

Method `append_metadata()`

Appends metadata to this ReportCard.

Usage

ReportCard$append_metadata(key, value)

Arguments

key: (character(1)) string specifying the metadata key.
value: value associated with the metadata key.

Returns

self, invisibly.

Examples

library(ggplot2)

card <- ReportCard$new()$append_text("Some text")$append_plot(
  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
)$append_text("Some text")$append_metadata(key = "lm",
                  value = lm(Ozone ~ Solar.R, airquality))
card$get_content()
card$get_metadata()

Method `get_name()`

Get the name of the ReportCard.

Usage

ReportCard$get_name()

Returns

character a card name.

Examples

ReportCard$new()$set_name("NAME")$get_name()

Method `set_name()`

Set the name of the ReportCard.

Usage

ReportCard$set_name(name)

Arguments

name: (character(1)) a card name.

Returns

self, invisibly.

Examples

ReportCard$new()$set_name("NAME")$get_name()

Method `to_list()`

Convert the ReportCard to a list, including content and metadata.

Usage

ReportCard$to_list(output_dir)

Arguments

output_dir: (character) with a path to the directory where files will be copied.

Returns

(named list) a ReportCard representation.

Examples

library(ggplot2)

card <- ReportCard$new()$append_text("Some text")$append_plot(
  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
)$append_text("Some text")$append_metadata(key = "lm",
                  value = lm(Ozone ~ Solar.R, airquality))
card$get_content()

card$to_list(tempdir())

Method `from_list()`

Reconstructs the ReportCard from a list representation.

Usage

ReportCard$from_list(card, output_dir)

Arguments

card: (named list) a ReportCard representation.
output_dir: (character) with a path to the directory where a file will be copied.

Returns

self, invisibly.

Examples

library(ggplot2)

card <- ReportCard$new()$append_text("Some text")$append_plot(
  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
)$append_text("Some text")$append_metadata(key = "lm",
                  value = lm(Ozone ~ Solar.R, airquality))
card$get_content()

ReportCard$new()$from_list(card$to_list(tempdir()), tempdir())

Method `clone()`

The objects of this class are cloneable with this method.

Usage

ReportCard$clone(deep = FALSE)

Arguments

deep: Whether to make a deep clone.

Examples


## ------------------------------------------------
## Method `ReportCard$new`
## ------------------------------------------------

card <- ReportCard$new()


## ------------------------------------------------
## Method `ReportCard$append_table`
## ------------------------------------------------

card <- ReportCard$new()$append_table(iris)


## ------------------------------------------------
## Method `ReportCard$append_plot`
## ------------------------------------------------

library(ggplot2)

card <- ReportCard$new()$append_plot(
  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
)
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.


## ------------------------------------------------
## Method `ReportCard$append_text`
## ------------------------------------------------

card <- ReportCard$new()$append_text("A paragraph of default text")


## ------------------------------------------------
## Method `ReportCard$append_rcode`
## ------------------------------------------------

card <- ReportCard$new()$append_rcode("2+2", echo = FALSE)


## ------------------------------------------------
## Method `ReportCard$append_content`
## ------------------------------------------------

NewpageBlock <- getFromNamespace("NewpageBlock", "teal.reporter")
card <- ReportCard$new()$append_content(NewpageBlock$new())


## ------------------------------------------------
## Method `ReportCard$get_content`
## ------------------------------------------------

card <- ReportCard$new()$append_text("Some text")$append_metadata("rc", "a <- 2 + 2")

card$get_content()
#> [[1]]
#> <TextBlock>
#>   Inherits from: <ContentBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     from_list: function (x) 
#>     get_available_styles: function () 
#>     get_content: function () 
#>     get_style: function () 
#>     initialize: function (content = character(0), style = private$styles[1]) 
#>     set_content: function (content) 
#>     set_style: function (style) 
#>     to_list: function () 
#>   Private:
#>     content: Some text
#>     deep_clone: function (name, value) 
#>     style: default
#>     styles: default header2 header3 verbatim
#> 



## ------------------------------------------------
## Method `ReportCard$get_metadata`
## ------------------------------------------------

card <- ReportCard$new()$append_text("Some text")$append_metadata("rc", "a <- 2 + 2")

card$get_metadata()
#> $rc
#> [1] "a <- 2 + 2"
#> 


## ------------------------------------------------
## Method `ReportCard$append_metadata`
## ------------------------------------------------

library(ggplot2)

card <- ReportCard$new()$append_text("Some text")$append_plot(
  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
)$append_text("Some text")$append_metadata(key = "lm",
                  value = lm(Ozone ~ Solar.R, airquality))
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
card$get_content()
#> [[1]]
#> <TextBlock>
#>   Inherits from: <ContentBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     from_list: function (x) 
#>     get_available_styles: function () 
#>     get_content: function () 
#>     get_style: function () 
#>     initialize: function (content = character(0), style = private$styles[1]) 
#>     set_content: function (content) 
#>     set_style: function (style) 
#>     to_list: function () 
#>   Private:
#>     content: Some text
#>     deep_clone: function (name, value) 
#>     style: default
#>     styles: default header2 header3 verbatim
#> 
#> [[2]]
#> <PictureBlock>
#>   Inherits from: <FileBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     finalize: function () 
#>     from_list: function (x, output_dir) 
#>     get_content: function () 
#>     get_dim: function () 
#>     get_title: function () 
#>     initialize: function (plot) 
#>     set_content: function (content) 
#>     set_dim: function (dim) 
#>     set_title: function (title) 
#>     to_list: function (output_dir) 
#>   Private:
#>     content: /tmp/Rtmp4E96o0/file2152f6f0541.png
#>     deep_clone: function (name, value) 
#>     dim: 800 600
#>     supported_plots: ggplot grob trellis Heatmap
#>     title: 
#>     type: 
#> 
#> [[3]]
#> <TextBlock>
#>   Inherits from: <ContentBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     from_list: function (x) 
#>     get_available_styles: function () 
#>     get_content: function () 
#>     get_style: function () 
#>     initialize: function (content = character(0), style = private$styles[1]) 
#>     set_content: function (content) 
#>     set_style: function (style) 
#>     to_list: function () 
#>   Private:
#>     content: Some text
#>     deep_clone: function (name, value) 
#>     style: default
#>     styles: default header2 header3 verbatim
#> 
card$get_metadata()
#> $lm
#> 
#> Call:
#> lm(formula = Ozone ~ Solar.R, data = airquality)
#> 
#> Coefficients:
#> (Intercept)      Solar.R  
#>     18.5987       0.1272  
#> 
#> 


## ------------------------------------------------
## Method `ReportCard$get_name`
## ------------------------------------------------

ReportCard$new()$set_name("NAME")$get_name()
#> [1] "NAME"

## ------------------------------------------------
## Method `ReportCard$set_name`
## ------------------------------------------------

ReportCard$new()$set_name("NAME")$get_name()
#> [1] "NAME"

## ------------------------------------------------
## Method `ReportCard$to_list`
## ------------------------------------------------

library(ggplot2)

card <- ReportCard$new()$append_text("Some text")$append_plot(
  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
)$append_text("Some text")$append_metadata(key = "lm",
                  value = lm(Ozone ~ Solar.R, airquality))
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
card$get_content()
#> [[1]]
#> <TextBlock>
#>   Inherits from: <ContentBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     from_list: function (x) 
#>     get_available_styles: function () 
#>     get_content: function () 
#>     get_style: function () 
#>     initialize: function (content = character(0), style = private$styles[1]) 
#>     set_content: function (content) 
#>     set_style: function (style) 
#>     to_list: function () 
#>   Private:
#>     content: Some text
#>     deep_clone: function (name, value) 
#>     style: default
#>     styles: default header2 header3 verbatim
#> 
#> [[2]]
#> <PictureBlock>
#>   Inherits from: <FileBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     finalize: function () 
#>     from_list: function (x, output_dir) 
#>     get_content: function () 
#>     get_dim: function () 
#>     get_title: function () 
#>     initialize: function (plot) 
#>     set_content: function (content) 
#>     set_dim: function (dim) 
#>     set_title: function (title) 
#>     to_list: function (output_dir) 
#>   Private:
#>     content: /tmp/Rtmp4E96o0/file2154e6a627e.png
#>     deep_clone: function (name, value) 
#>     dim: 800 600
#>     supported_plots: ggplot grob trellis Heatmap
#>     title: 
#>     type: 
#> 
#> [[3]]
#> <TextBlock>
#>   Inherits from: <ContentBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     from_list: function (x) 
#>     get_available_styles: function () 
#>     get_content: function () 
#>     get_style: function () 
#>     initialize: function (content = character(0), style = private$styles[1]) 
#>     set_content: function (content) 
#>     set_style: function (style) 
#>     to_list: function () 
#>   Private:
#>     content: Some text
#>     deep_clone: function (name, value) 
#>     style: default
#>     styles: default header2 header3 verbatim
#> 

card$to_list(tempdir())
#> $blocks
#> $blocks$TextBlock
#> $blocks$TextBlock$text
#> [1] "Some text"
#> 
#> $blocks$TextBlock$style
#> [1] "default"
#> 
#> 
#> $blocks$PictureBlock
#> $blocks$PictureBlock$basename
#> [1] "file2154e6a627e.png"
#> 
#> 
#> $blocks$TextBlock
#> $blocks$TextBlock$text
#> [1] "Some text"
#> 
#> $blocks$TextBlock$style
#> [1] "default"
#> 
#> 
#> 
#> $metadata
#> $metadata$lm
#> 
#> Call:
#> lm(formula = Ozone ~ Solar.R, data = airquality)
#> 
#> Coefficients:
#> (Intercept)      Solar.R  
#>     18.5987       0.1272  
#> 
#> 
#> 


## ------------------------------------------------
## Method `ReportCard$from_list`
## ------------------------------------------------

library(ggplot2)

card <- ReportCard$new()$append_text("Some text")$append_plot(
  ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
)$append_text("Some text")$append_metadata(key = "lm",
                  value = lm(Ozone ~ Solar.R, airquality))
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
card$get_content()
#> [[1]]
#> <TextBlock>
#>   Inherits from: <ContentBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     from_list: function (x) 
#>     get_available_styles: function () 
#>     get_content: function () 
#>     get_style: function () 
#>     initialize: function (content = character(0), style = private$styles[1]) 
#>     set_content: function (content) 
#>     set_style: function (style) 
#>     to_list: function () 
#>   Private:
#>     content: Some text
#>     deep_clone: function (name, value) 
#>     style: default
#>     styles: default header2 header3 verbatim
#> 
#> [[2]]
#> <PictureBlock>
#>   Inherits from: <FileBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     finalize: function () 
#>     from_list: function (x, output_dir) 
#>     get_content: function () 
#>     get_dim: function () 
#>     get_title: function () 
#>     initialize: function (plot) 
#>     set_content: function (content) 
#>     set_dim: function (dim) 
#>     set_title: function (title) 
#>     to_list: function (output_dir) 
#>   Private:
#>     content: /tmp/Rtmp4E96o0/file2151e614d89.png
#>     deep_clone: function (name, value) 
#>     dim: 800 600
#>     supported_plots: ggplot grob trellis Heatmap
#>     title: 
#>     type: 
#> 
#> [[3]]
#> <TextBlock>
#>   Inherits from: <ContentBlock>
#>   Public:
#>     clone: function (deep = FALSE) 
#>     from_list: function (x) 
#>     get_available_styles: function () 
#>     get_content: function () 
#>     get_style: function () 
#>     initialize: function (content = character(0), style = private$styles[1]) 
#>     set_content: function (content) 
#>     set_style: function (style) 
#>     to_list: function () 
#>   Private:
#>     content: Some text
#>     deep_clone: function (name, value) 
#>     style: default
#>     styles: default header2 header3 verbatim
#> 

ReportCard$new()$from_list(card$to_list(tempdir()), tempdir())

ReportCard: An R6 class for building report elements

Methods

Public methods

Method new()

Usage

Returns

Examples

Method append_table()

Usage

Arguments

Returns

Examples

Method append_plot()

Usage

Arguments

Returns

Examples

Method append_text()

Usage

Arguments

Returns

Examples

Method append_rcode()

Usage

Arguments

Returns

Examples

Method append_content()

Usage

Arguments

Returns

Examples

Method get_content()

Usage

Returns

Examples

Method reset()

Usage

Returns

Method get_metadata()

Usage

Returns

Examples

Method append_metadata()

Usage

Arguments

Returns

Examples

Method get_name()

Usage

Returns

Examples

Method set_name()

Usage

Arguments

Returns

Examples

Method to_list()

Usage

Arguments

Returns

Examples

Method from_list()

Usage

Arguments

Returns

Examples

Method clone()

Usage

Arguments

Examples

`ReportCard`: An `R6` class for building report elements

Method `new()`

Method `append_table()`

Method `append_plot()`

Method `append_text()`

Method `append_rcode()`

Method `append_content()`

Method `get_content()`

Method `reset()`

Method `get_metadata()`

Method `append_metadata()`

Method `get_name()`

Method `set_name()`

Method `to_list()`

Method `from_list()`

Method `clone()`