diff --git a/R/Renderer.R b/R/Renderer.R index 8ff3996b..15024922 100644 --- a/R/Renderer.R +++ b/R/Renderer.R @@ -56,7 +56,7 @@ Renderer <- R6::R6Class( # nolint: object_name_linter. #' card2 <- ReportCard$new() #' #' card2$append_text("Header 2 text", "header2") - #' card2$append_text("A paragraph of default text", "header2") + #' card2$append_text("A paragraph of default text") #' lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) #' table_res2 <- build_table(lyt, airquality) #' card2$append_table(table_res2) @@ -160,7 +160,7 @@ Renderer <- R6::R6Class( # nolint: object_name_linter. #' card2 <- ReportCard$new() #' #' card2$append_text("Header 2 text", "header2") - #' card2$append_text("A paragraph of default text", "header2") + #' card2$append_text("A paragraph of default text") #' lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) #' table_res2 <- build_table(lyt, airquality) #' card2$append_table(table_res2) diff --git a/R/Reporter.R b/R/Reporter.R index aef2bf53..3b8bb463 100644 --- a/R/Reporter.R +++ b/R/Reporter.R @@ -32,7 +32,7 @@ Reporter <- R6::R6Class( # nolint: object_name_linter. #' card1 <- ReportCard$new() #' #' card1$append_text("Header 2 text", "header2") - #' card1$append_text("A paragraph of default text", "header2") + #' card1$append_text("A paragraph of default text") #' card1$append_plot( #' ggplot(iris, aes(x = Petal.Length)) + geom_histogram() #' ) @@ -40,7 +40,7 @@ Reporter <- R6::R6Class( # nolint: object_name_linter. #' card2 <- ReportCard$new() #' #' card2$append_text("Header 2 text", "header2") - #' card2$append_text("A paragraph of default text", "header2") + #' card2$append_text("A paragraph of default text") #' lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) #' table_res2 <- build_table(lyt, airquality) #' card2$append_table(table_res2) @@ -64,7 +64,7 @@ Reporter <- R6::R6Class( # nolint: object_name_linter. #' card1 <- ReportCard$new() #' #' card1$append_text("Header 2 text", "header2") - #' card1$append_text("A paragraph of default text", "header2") + #' card1$append_text("A paragraph of default text") #' card1$append_plot( #' ggplot(iris, aes(x = Petal.Length)) + geom_histogram() #' ) @@ -72,7 +72,7 @@ Reporter <- R6::R6Class( # nolint: object_name_linter. #' card2 <- ReportCard$new() #' #' card2$append_text("Header 2 text", "header2") - #' card2$append_text("A paragraph of default text", "header2") + #' card2$append_text("A paragraph of default text") #' lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) #' table_res2 <- build_table(lyt, airquality) #' card2$append_table(table_res2) @@ -96,7 +96,7 @@ Reporter <- R6::R6Class( # nolint: object_name_linter. #' card1 <- ReportCard$new() #' #' card1$append_text("Header 2 text", "header2") - #' card1$append_text("A paragraph of default text", "header2") + #' card1$append_text("A paragraph of default text") #' card1$append_plot( #' ggplot(iris, aes(x = Petal.Length)) + geom_histogram() #' ) @@ -104,7 +104,7 @@ Reporter <- R6::R6Class( # nolint: object_name_linter. #' card2 <- ReportCard$new() #' #' card2$append_text("Header 2 text", "header2") - #' card2$append_text("A paragraph of default text", "header2") + #' card2$append_text("A paragraph of default text") #' lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) #' table_res2 <- build_table(lyt, airquality) #' card2$append_table(table_res2) diff --git a/man/Renderer.Rd b/man/Renderer.Rd index 247e7800..1bdd886c 100644 --- a/man/Renderer.Rd +++ b/man/Renderer.Rd @@ -27,7 +27,7 @@ ReportCard <- getFromNamespace("ReportCard", "teal.reporter") card2 <- ReportCard$new() card2$append_text("Header 2 text", "header2") -card2$append_text("A paragraph of default text", "header2") +card2$append_text("A paragraph of default text") lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) table_res2 <- build_table(lyt, airquality) card2$append_table(table_res2) @@ -68,7 +68,7 @@ ReportCard <- getFromNamespace("ReportCard", "teal.reporter") card2 <- ReportCard$new() card2$append_text("Header 2 text", "header2") -card2$append_text("A paragraph of default text", "header2") +card2$append_text("A paragraph of default text") lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) table_res2 <- build_table(lyt, airquality) card2$append_table(table_res2) diff --git a/man/Reporter.Rd b/man/Reporter.Rd index ee4af4b0..a45cced6 100644 --- a/man/Reporter.Rd +++ b/man/Reporter.Rd @@ -25,7 +25,7 @@ library(rtables) card1 <- ReportCard$new() card1$append_text("Header 2 text", "header2") -card1$append_text("A paragraph of default text", "header2") +card1$append_text("A paragraph of default text") card1$append_plot( ggplot(iris, aes(x = Petal.Length)) + geom_histogram() ) @@ -33,7 +33,7 @@ card1$append_plot( card2 <- ReportCard$new() card2$append_text("Header 2 text", "header2") -card2$append_text("A paragraph of default text", "header2") +card2$append_text("A paragraph of default text") lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) table_res2 <- build_table(lyt, airquality) card2$append_table(table_res2) @@ -49,7 +49,7 @@ library(rtables) card1 <- ReportCard$new() card1$append_text("Header 2 text", "header2") -card1$append_text("A paragraph of default text", "header2") +card1$append_text("A paragraph of default text") card1$append_plot( ggplot(iris, aes(x = Petal.Length)) + geom_histogram() ) @@ -57,7 +57,7 @@ card1$append_plot( card2 <- ReportCard$new() card2$append_text("Header 2 text", "header2") -card2$append_text("A paragraph of default text", "header2") +card2$append_text("A paragraph of default text") lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) table_res2 <- build_table(lyt, airquality) card2$append_table(table_res2) @@ -74,7 +74,7 @@ library(rtables) card1 <- ReportCard$new() card1$append_text("Header 2 text", "header2") -card1$append_text("A paragraph of default text", "header2") +card1$append_text("A paragraph of default text") card1$append_plot( ggplot(iris, aes(x = Petal.Length)) + geom_histogram() ) @@ -82,7 +82,7 @@ card1$append_plot( card2 <- ReportCard$new() card2$append_text("Header 2 text", "header2") -card2$append_text("A paragraph of default text", "header2") +card2$append_text("A paragraph of default text") lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) table_res2 <- build_table(lyt, airquality) card2$append_table(table_res2)