在向量中的闪亮html标签

Question

我正在尝试使用html标签（闪亮）并尝试将这些功能应用于矢量。换句话说，我正在尝试这样的事情：

library(shiny)
tags$p(letters)

这会产生以下警告：

Warning message:
In charToRaw(enc2utf8(text)) :
  argument should be a character vector of length 1
all but the first element will be ignored

我怎样才能得到：

  <p>a</p>
  <p>b</p>
  <p>c</p>

等

我使用了lapply（lapply(letters,tags$p)）并且几乎到了那里，但是我无法将其作为每个字符串的单个向量取消列出。

Answer 1

你可以尝试

sapply(letters,function(i) as.character(tags$p(i)))

如果您想将其作为一个字符值尝试

cat(paste(sapply(letters[1:3],function(i) as.character(tags$p(i))),collapse="\n")) 
<p>a</p>
<p>b</p>
<p>c</p>