Apply suggestions from code review

Signed-off-by: Marcin <[email protected]>

Author: m7pr

R/tm_missing_data.R

@@ -1403,7 +1403,7 @@ srv_missing_data <- function(id,
     decorated_final_q <- reactive({
       sum_type <- req(input$summary_type)
       if (sum_type == "Summary") {
-        decorated_output_summary_plot_dims_q()
+        decorated_summary_plot_dims_q()
       } else if (sum_type == "Combinations") {
         decorated_combination_plot_dims_q()
       } else if (sum_type == "By Variable Levels") {

R/utils.R

@@ -365,7 +365,7 @@ select_decorators <- function(decorators, scope) {
 }
 
 #' Set the attributes of the last chunk outputs
-#' @param data (`teal_card`) object to modify.
+#' @param teal_card (`teal_card`) object to modify.
 #' @param attributes (`list`) of attributes to set on the last chunk outputs.
 #' @param n (`integer(1)`) number of the last element of `teal_card` to modify.
 #' it will only change `chunk_output` objects.