diff --git a/vignettes/decorate-modules-output.Rmd b/vignettes/decorate-modules-output.Rmd index d22a89850b..06f6de0a21 100644 --- a/vignettes/decorate-modules-output.Rmd +++ b/vignettes/decorate-modules-output.Rmd @@ -22,7 +22,7 @@ Adjusting input data or customizing module outputs in `teal` is accomplished usi output-modifying objects as decoration objects or decorators. Throughout the examples, you will see references to a `data()` object. -This reactive object, built with `teal_data()`[https://insightsengineering.github.io/teal.data/latest-tag/articles/teal-data.html], +This reactive object, built with [`teal_data()`](https://insightsengineering.github.io/teal.data/latest-tag/articles/teal-data.html), holds all the data used `within` the module as well as the generated output objects. `teal_transform_module` operates on this object and can execute custom R code within the `data()` environment using the `within function`. This approach allows you to pass code directly and evaluate it in the `data()` environment. @@ -33,7 +33,7 @@ This approach allows you to pass code directly and evaluate it in the `data()` e The simplest way to create a decorator is to use `teal_transform_module` without specifying a `ui`. This approach adds functionality solely to the server code of the `teal` app. -In the following example, we assume that the module contains an object (of class ggplot2) named `plot`. +In the following example, we assume that the module contains an object (of class `ggplot2`) named `plot`. We modify the title and x-axis label of plot: ```{r} @@ -195,7 +195,7 @@ tm_decorated_plot <- function(label = "module", transforms = list(), decorators selectInput(ns("dataname"), label = "select dataname", choices = NULL), selectInput(ns("x"), label = "select x", choices = NULL), selectInput(ns("y"), label = "select y", choices = NULL), - ui_transform_data(ns("decorate"), transforms = decorators), + ui_teal_transform_data(ns("decorate"), transforms = decorators), plotOutput(ns("plot")), verbatimTextOutput(ns("text")) ) @@ -227,7 +227,7 @@ tm_decorated_plot <- function(label = "module", transforms = list(), decorators }), 200 ) - plot_data_decorated <- srv_transform_data("decorate", data = plot_data, transforms = decorators) + plot_data_decorated <- srv_teal_transform_data("decorate", data = plot_data, transforms = decorators) plot_r <- reactive({ req(plot_data_decorated()) @@ -327,7 +327,7 @@ tm_custom_table <- function(label = "Customized Table Module", decorators = teal ns <- NS(id) div( selectInput(ns("dataset"), "Select Dataset", choices = NULL), - ui_transform_data(ns("decorate"), transforms = decorators), + ui_teal_transform_data(ns("decorate"), transforms = decorators), DT::dataTableOutput(ns("table_output")), verbatimTextOutput(ns("code_output")) ) @@ -356,7 +356,7 @@ tm_custom_table <- function(label = "Customized Table Module", decorators = teal }) decorated_table <- - srv_transform_data("decorate", data = base_table, transforms = decorators) + srv_teal_transform_data("decorate", data = base_table, transforms = decorators) output$table_output <- DT::renderDT({ req(decorated_table())