Shiny 在R中格式化文本

Shiny 在R中格式化文本,shiny,Shiny,我正在开发一个应用程序。我在应用程序中的一个模块根据用户输入显示动态文本。我想显示作为项目符号的文本,另外还想在“强”或“标题”格式的文本。我可以单独做这件事,但不知何故,我无法想出如何结合2。因此,假设我的函数返回一个字符向量a,需要显示两个组件,我可以执行以下操作: HTML("<ul><li>",a[1],"</li><li>",a[2]) #To generate bullet points HTML(paste(h4(a[1],a[2],

我正在开发一个应用程序。我在应用程序中的一个模块根据用户输入显示动态文本。我想显示作为项目符号的文本,另外还想在“强”或“标题”格式的文本。我可以单独做这件事,但不知何故,我无法想出如何结合2。因此,假设我的函数返回一个字符向量a,需要显示两个组件,我可以执行以下操作:

HTML("<ul><li>",a[1],"</li><li>",a[2]) #To generate bullet points
HTML(paste(h4(a[1],a[2],sep='')))  #To concatenate and change format to heading
HTML(“
  • ”,a[1],“
  • ”,a[2])来生成项目符号 HTML(粘贴(h4(a[1],a[2],sep='')#连接并将格式更改为标题
现在我的问题是-我如何同时做到这两个(显示为标题格式的项目符号)?我尝试了不同的组合,但不起作用。 第二,我如何改变我的文字的颜色

任何帮助都将不胜感激


谢谢

要获得标题格式的项目符号列表,只需在
粘贴中添加
标记即可。此外,请确保关闭所有打开的标签,例如:

  HTML("<ul'><li><h4>",a[1],"</h4></li><li><h4>",a[2],"</h4></li></ul>")

HTML(“太棒了!非常感谢。正是我想要的。
HTML("<ul style='color:red'><li><h4>",a[1],"</h4></li><li><h4>",a[2],"</h4></li></ul>")