ベクター内の光沢のある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)）とほぼそこに着いたが、私はそれぞれを持つ単一のベクトルとしてそれをunlistできない文字列。

Answer 1

あなたがしようと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>