如何从Shiny中的server.R解析为HTML标记

Question

我想要做的是解析从server.R的反应函数返回的HTML字符串。 我已经试了几天来解决这个问题，但没有运气。 例如，给定以下ui.R文件：

library(shiny)
shinyUI(pageWithSidebar( 
  headerPanel("Code"), 
  sidebarPanel(   
  ), 
  mainPanel(
    textOutput("code")
  )  
))

和server.R文件：

shinyServer(function(input, output) {
  output$code <- renderText({   
    HTML('<strong> Hello World <strong>')
  }) 
})

我希望输出为：

你好，世界

而不是显示强标记的原始HTML文本输出。

基本上，我想在ui.R中解析HTML文本。 我实际上是在尝试做一些比这更复杂的事情，但是一旦我解决了这个简单的问题，我应该没问题。 我不能只将HTML标记放在ui.R中，因为我希望它能根据其他一些值进行更改。 谢谢！

Answer 1

总之，我已经找到了解决方案，感谢StackOverflow的善良灵魂。 您只需使用renderUI和uiOutput：

server.R

shinyServer(function(input, output) {
  output$code <- renderUI({   
    HTML('<strong> Hello World <strong>')
  }) 
})

ui.R

library(shiny)
shinyUI(pageWithSidebar( 
  headerPanel("Code"), 
  sidebarPanel(   
  ), 
  mainPanel(
     uiOutput("code")
  )  
))

问题解决了。