小编use*_*789的帖子

我想要做的是解析从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中,因为我希望它能根据其他一些值进行更改.谢谢!