我有一个html对象，如下所示，
library(R2HTML)
heading <- c(
"<html>
<head>
<body>
<p> A new program </p></br>
</br>
</body>
</html>")
我需要在.html文件中创建它。直到现在我已经尝试了
writeLines(text=
"<html>
<head>
<body>
<p>A new program</p>
</br>
</br>
</body>
</html>",
tf <- tempfile(fileext = ".html"))
但这会在.html中创建tempdir()，但我需要在setwd()创建此内容。我该怎么做呢 ？