Match code and documentation (#299)

While checking for other issues I noticed in the examples some mismatch
between the text and the result.
I also observed some differences between the options on the code and the
documented options.

While checking the package I saw:

```
─  checking examples ... [22s] OK (23.2s)
   Examples with CPU (user + system) or elapsed time > 5s
            user system elapsed
   Reporter 2.61   0.14    7.09
   Renderer 2.30   0.30    7.74
```

The problem might come from each method creating a new card and
reporter, see r-lib/roxygen2#1521 for the
underlying issue and linked issues here.

Author: llrs-roche

DESCRIPTION

@@ -32,8 +32,8 @@ Imports:
     R6,
     rlistings (>= 0.2.10),
     rmarkdown (>= 2.23),
-    rtables (>= 0.6.10.9004),
-    rtables.officer (>= 0.0.1.9005),
+    rtables (>= 0.6.11),
+    rtables.officer (>= 0.0.2),
     shiny (>= 1.6.0),
     shinybusy (>= 0.3.2),
     shinyWidgets (>= 0.5.1),

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)

R/ReportCard.R

@@ -72,7 +72,7 @@ ReportCard <- R6::R6Class( # nolint: object_name_linter.
     #' @description Appends a text paragraph to this `ReportCard`.
     #'
     #' @param text (`character`) The text content to add.
-    #' @param style (`character(1)`) the style of the paragraph. One of: `default`, `header`, `verbatim`
+    #' @param style (`character(1)`) the style of the paragraph. One of: `r TextBlock$new()$get_available_styles()`.
     #' @return `self`, invisibly.
     #' @examples
     #' card <- ReportCard$new()$append_text("A paragraph of default text")

R/Reporter.R

@@ -32,15 +32,15 @@ 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()
     #' )
     #'
     #' 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,15 +64,15 @@ 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()
     #' )
     #'
     #' 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,15 +96,15 @@ 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()
     #' )
     #'
     #' 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)