Update R/utils.R

Signed-off-by: André Veríssimo <[email protected]>

Author: averissimo

R/utils.R

@@ -433,7 +433,9 @@ set_chunk_attrs <- function(teal_card,
 #'
 #' @keywords internal
 set_chunk_dims <- function(pws, decorated_output_q, inner_classes = NULL) {
-  checkmate::assert_class(pws, "plot_widget")
+  checkmate::assert_list(pws)
+  checkmate::assert_names(names(pws), must.include = "dim")
+  assert_reactive(pws$dim)
   checkmate::assert_class(decorated_output_q, "reactive")
   checkmate::assert_character(inner_classes, null.ok = TRUE)