使用for循环生成html内容

问题描述

我正在尝试使用for循环生成html内容，但是在内容在html中的外观方面却遇到了问题。

让我们说我有一个Rhtml模板，我想在for循环中生成段落：

<!DOCTYPE html>
<html lang="en">
<head>
</head>
<body>
<!--begin.rcode,echo=FALSE,message=FALSE,warning=FALSE
library(htmltools)
paragraphs = c("Paragraph1","Paragraph2","Paragraph3")
tags$div(
  for(i in paragraphs){
    print(tags$p(i))
    }
  )
end.rcode-->
</body>
</html>

问题在于html输出是这样的：

## <p>Paragraph1</p>
## <p>Paragraph2</p>
## <p>Paragraph3</p>

我需要的只是三个普通的html段落。我该如何使用for循环？

解决方法

将循环移到tags$div之外。

<!DOCTYPE html>
<html lang="en">
<head>
</head>
<body>
<!--begin.rcode,echo=FALSE,message=FALSE,warning=FALSE
library(htmltools)
paragraphs = c("Paragraph1","Paragraph2","Paragraph3")
p <- list()
for(i in paragraphs){
  p <- c(p,list(tags$p(i)))
}
tags$div(p)
end.rcode-->
</body>
</html>

这也可以用purr::map来写。

<!DOCTYPE html>
<html lang="en">
<head>
</head>
<body>
<!--begin.rcode,"Paragraph3")
tags$div(purrr::map(paragraphs,tags$p))
end.rcode-->
</body>
</html>

htmltools r r