diff --git a/R/HTMLBlock.R b/R/HTMLBlock.R index 648fa520..53438e89 100644 --- a/R/HTMLBlock.R +++ b/R/HTMLBlock.R @@ -18,6 +18,7 @@ HTMLBlock <- R6::R6Class( # nolint: object_name_linter. #' @return Object of class `HTMLBlock`, invisibly. initialize = function(content) { if (!missing(content)) { + checkmate::assert_multi_class(content, c("shiny.tag", "shiny.tag.list", "htmlwidget")) self$set_content(content) } invisible(self)