生成與兩個報價「和」來自R

我需要建立與R軟件的HTML文件的HTML文件。問題是，JavaScript的暗示簡單的報價和風格的雙引號生成的字符串。生成與兩個報價「和」來自R

貓（）函數返回一個相當不錯的文本，刪除前面的反斜槓「。但我沒有找到如何在HTML文件中使用write.table（Text，「index.html」，sep =「\ t」）打印它。

在此先感謝您的幫助。

注：我刪除在/腳本前面的「<」字符，以便能夠將它張貼=）

對於爲例：

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)

來源

2016-08-04 Ben

我不知道我完全理解這個問題，但每當我從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)

也許這會幫助你。

來源

2016-08-04 16:21:51 jamesthomson

當然，這可以幫助我！非常感謝這個寫作命令。 – Ben

生成與兩個報價「和」來自R

回答

相關問題