From 902ba11d483f8e563649d453a1e9da3171e12ed5 Mon Sep 17 00:00:00 2001 From: Garrick Aden-Buie Date: Mon, 11 Aug 2025 10:39:24 -0400 Subject: [PATCH 1/2] fix(pkg-r): If `value` is html, call `as.tags()` to convert it to a tags object --- pkg-r/R/contents_shinychat.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/pkg-r/R/contents_shinychat.R b/pkg-r/R/contents_shinychat.R index df3b110..eeb5560 100644 --- a/pkg-r/R/contents_shinychat.R +++ b/pkg-r/R/contents_shinychat.R @@ -165,6 +165,10 @@ as.tags.shinychat_tool_card <- function(x, ...) { ) ) + if (identical(x$value_type, "html") && !is.character(x$value)) { + x$value <- as.tags(x$value) + } + names(x) <- gsub("_", "-", names(x)) deps <- list( From 504e5425fd85ce31a0daae8a8e080c4190d44799 Mon Sep 17 00:00:00 2001 From: Garrick Aden-Buie Date: Mon, 11 Aug 2025 10:42:25 -0400 Subject: [PATCH 2/2] fix(pkg-r): tagify icon, too --- pkg-r/R/contents_shinychat.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/pkg-r/R/contents_shinychat.R b/pkg-r/R/contents_shinychat.R index eeb5560..5de42bc 100644 --- a/pkg-r/R/contents_shinychat.R +++ b/pkg-r/R/contents_shinychat.R @@ -168,6 +168,9 @@ as.tags.shinychat_tool_card <- function(x, ...) { if (identical(x$value_type, "html") && !is.character(x$value)) { x$value <- as.tags(x$value) } + if (!is.null(x$icon) && !is.character(x$icon)) { + x$icon <- as.tags(x$icon) + } names(x) <- gsub("_", "-", names(x))