ft: improve handling of shiny & htmltools tags

ambiorix-web · Nov 13, 2024 · 9f49c97 · 9f49c97
1 parent 22ba149
commit 9f49c97
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/R/response.R b/R/response.R
@@ -56,16 +56,13 @@ convert_body <- function(body) {
   if(inherits(body, "AsIs"))
     return(body)
 
-  if(is.raw(body))
-    return(body)
-
-  if(is.character(body) && length(body) == 1L)
-    return(body)
-
-  if(is.factor(body) || inherits(body, "shiny.tag"))
+  if (is.factor(body))
     return(as.character(body))
 
-  return(body)
+  if(inherits(body, "shiny.tag") || inherits(body, "shiny.tag.list"))
+    return(htmltools::doRenderTags(body))
+
+  body
 }
 
 #' Construct Response