从 R 生成带有引号 ' 和 " 的 HTML 文件答案

【问题标题】：Generate HTML file with both quote ' and " from R从 R 生成带有引号 ' 和 " 的 HTML 文件
【发布时间】：2016-08-04 14:44:39
【问题描述】：

我需要从 R 软件创建一个 HTML 文件。问题是 javascript 在生成的字符串中暗示了简单的引号和样式双引号。

cat() 函数返回一个很好的文本删除“前面的反斜杠。但我没有找到如何使用 write.table(Text, "index.html", sep=" 在 html 文件中这样打印它\t")

提前感谢您的帮助。

注意：我删除了 /script 前面的“

例如：

Text=paste0('<html> 
               <script type="text/javascript">',
               "function lang1(event) {
              var iframe = document.getElementById('id1');
               var target = event.target || event.srcElement;
                iframe.src = event.target.innerHTML + '.html';
                }
             /script>",
              '<body style="overflow:hidden; margin:0">
              <div id="main">
                <div id="content">
               <table style="border: 0; height:100%;width:100%;">
               <tr style="height:5%;">
               <td colspan="2" style="text-align:center;">
               <h2>',paste0("some text"),'</h2> 
             </td>
               </tr>
               <tr>
                <td style="width: 10%;font-size:14px;">
                <ul onclick="lang1(event);">',
               paste('<li>',c("link1","link2"),'</li>',collapse=""),
              '</ul>
               </td>
                <td style="width: 90%;"> 
               <iframe id="id1" width="99%" height="99%"></iframe>
                </td>
                </tr>
                </table>
              </div>
               </div>
              </body>
              </html>')
   Text=gsub("\n","",Text)

【问题讨论】：

标签： html r

【解决方案1】：

我不确定我是否完全理解这个问题，但每当我从 R 中的文本生成 html 文件时，我都会使用 \ 字符来转义 JavaScript 中所需的引号。然后我打开一个文件连接并使用 writeLines 函数将我的文本正确写入文件

Text<-"<!doctype html>
<html lang=\"en\">
<head>
<meta charset=\"utf-8\">

<style>
body {
font-size : 16px;
font-family: \"Helvetica Neue\",Helvetica,Arial,sans-serif;
}
</style>
</head>
</html>
" 

fileConn<-file("mywebpage.html")
writeLines(Text, fileConn)
close(fileConn)

也许这会对你有所帮助。

【讨论】：