这是一个简单的解决方案（尽管我更喜欢按照问题注释中的建议使用包XML）：

code <- "
  
  

  
My First Heading

  
My first paragraph.

  
"

注意：如果您已经有一个包含上述文本的对象，则可以将其转换为字符串，因此适用以下代码：

code <- paste(as.character(code), collapse = "\n")

write.table(code, 
            file='C:/Users/dsargsy/Desktop/code_result.html', 
            quote = FALSE,
            col.names = FALSE,
            row.names = FALSE)