在R中格式化文本Shiny

Question

我正在R Shiny中开发应用程序。应用程序中的一个模块，根据用户输入显示动态文本。我希望将文本显示为项目符号，并且还希望“strong”或“heading”格式的文本。我可以单独做这件事，但不知何故我无法弄清楚如何合并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("<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 

现在我的问题是 - 我怎样才能做到这一点（以标题格式显示为项目符号）？我尝试了不同的组合，但它不起作用。其次，我如何改变文字的颜色？

任何帮助将不胜感激。

谢谢！

Answer 1

要获得带有标题格式的项目符号列表，只需将<h4>标记添加到paste即可。此外，请务必关闭所有打开的标签，为前：

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

您可以使用内联CSS来改变颜色，例如：

HTML("<ul style='color:red'><li><h4>",a[1],"</h4></li><li><h4>",a[2],"</h4></li></ul>") 

更多信息here。