使用R语言生成HTML页面而不转义标记

Question

使用tags $ script我可以生成＆lt; script＆gt;标签和执行页面内的JavaScript，我不知道为什么＆lt;和＆gt;逃脱了。 这是我的R代码：

require(shiny)
server <- function(input, output, session) {}
ui <- fluidPage(tags$script("document.write('Hello <br/> World!');"))
shinyApp(ui = ui, server = server)