fix srv_decorate_teal_data expression check

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

Author: m7pr

R/utils.R

@@ -290,6 +290,8 @@ assert_single_selection <- function(x,
 #' @param expr (`reactive`) with expression to evaluate on the output of the
 #' decoration. It must be compatible with `code` argument of [teal.code::eval_code()].
 #' Default is `NULL` which won't evaluate any appending code.
+#' @param keep_output (`character`) optional, names of the outputs to keep.
+#' Default is `NULL` which won't keep any outputs.
 #' @details
 #' `srv_decorate_teal_data` is a wrapper around `srv_transform_teal_data` that
 #' allows to decorate the data with additional expressions.
@@ -301,12 +303,14 @@ srv_decorate_teal_data <- function(id, data, decorators, expr, keep_output = NUL
   checkmate::assert_class(data, classes = "reactive")
   checkmate::assert_list(decorators, "teal_transform_module")
 
+  no_expr <- missing(expr)
+
   moduleServer(id, function(input, output, session) {
     decorated_output <- srv_transform_teal_data("inner", data = data, transformators = decorators)
 
     reactive({
       req(data(), decorated_output())
-      if (missing(expr)) {
+      if (no_expr) {
         decorated_output()
       } else {
         req(expr())