向量中的閃亮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>