将JavaScript添加到R2HTML

Question

我可以添加JavaScript到R2HTML吗？

加样<script>标签的R2HTML下面的代码提前

Answer 1

当然

HTMLheaderText ="Sample Report" 
HTMLfile =HTMLInitFile(outdir  = getwd() 
       , filename = "sample" 
       , extension = "html" 
       , Title  = "R Output" 
       , CSSFile = paste(getwd(), "/html_tables.css", sep="") 
       , HTMLframe = FALSE 
       , useGrid = FALSE 
       , useLaTeX = FALSE) 

HTML(HTMLheaderText, file = HTMLfile) 
HTML(dataSet, row.names = FALSE) 
HTMLEndFile() 

谢谢，只要给它一个字符串如常。

HTML('<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script>', file = HTMLfile) 

它将被包裹在<p class="character">。如果你不想要的话，只需手动附加到文件

cat('<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script>', file = HTMLfile, append = TRUE, sep = " ")