将shiny.tag对象（闪亮的输入对象）转换为html对象或角色对象

Question

我需要将闪亮的输入对象转换为纯HTML。

library(shiny)
test <- selectInput("testInput", label = "", 
     choices = c("test1", "test2", "test3"), selected = "test1")

在此示例中，test是一个shiny.tag对象。

class(test)

#[1] "shiny.tag"

我希望它是一个html对象，就像我从文本中解析它一样：

test2 <- HTML('<div class="form-group shiny-input-container">
         <label class="control-label" for="testInput"></label>
         <div>
         <select id="testInput"><option value="test1" selected>test1</option>
         <option value="test2">test2</option>
         <option value="test3">test3</option></select>
         <script type="application/json" data-for="testInput" data-nonempty="">{}</script>
         </div>
         </div>')

class(test2)

#[1] "html"      "character"

我试着直接这样做：

HTML(test)

#Error in FUN(X[[i]], ...) : argument is not a character vector

但是它需要一个字符向量，并且似乎没有一种方法可以将shiny.tag对象转换为HTML。

我认为将闪亮的输入对象转换为html应该很容易，但不知道如何实现。

先谢谢你了！