fix: minor fix in names

Author: averissimo

R/tm_rmarkdown.R

@@ -64,7 +64,7 @@
 #' }
 #'
 #' @examples
-#' static_decorator <- teal_transform_module(
+#' nrow_transform <- teal_transform_module(
 #'   label = "N Rows selector",
 #'   ui = function(id) {
 #'     ns <- NS(id)
@@ -91,7 +91,7 @@
 #'       label = "RMarkdown Module",
 #'       rmd_file = "test.Rmd",
 #'       allow_download = FALSE,
-#'       decorators = list(static_decorator)
+#'       extra_transform = list(nrow_transform)
 #'     )
 #'   )
 #' ) |> shiny::runApp()
@@ -165,7 +165,7 @@ ui_rmarkdown <- function(id, rmd_file, allow_download, extra_transform, ...) {
 }
 
 # Server function for the rmarkdown module
-srv_rmarkdown <- function(id, data, rmd_file, allow_download, decorators) {
+srv_rmarkdown <- function(id, data, rmd_file, allow_download, extra_transform) {
   checkmate::assert_class(data, "reactive")
   checkmate::assert_class(isolate(data()), "teal_data")
   moduleServer(id, function(input, output, session) {

inst/sample_files/test.Rmd

@@ -0,0 +1,34 @@
+---
+title: "Test R Markdown"
+output: html_document
+params:
+  CO2: NULL
+  yada: 42
+  n_rows: NULL
+---
+
+This is an example of an R markdown file with an inline r execution that gives the current date: `r Sys.Date()`
+
+Code chunk that performs a simple calculation (`1+1`)
+
+```{r}
+1+1
+```
+
+Code chunk that shows the structure of the params object
+
+```{r}
+lapply(params, class)
+```
+
+Code chunk that shows the summary of the first `n_rows` of the `CO2` dataset if it is provided
+
+```{r}
+summary(head(params$CO2, n = params$n_rows))
+```
+
+Code chunk that plots the first `n_rows` of the `CO2` dataset if it is provided
+
+```{r, eval = !is.null(params$CO2)}
+plot(head(params$CO2, n = params$n_rows))
+```