cont.

R/rendr/rmd_playground.R

+## [rmarkdown@rstudio](http://rmarkdown.rstudio.com/)
+
+rmarkdown::render(input="/Users/brandl/Dropbox/projects/snippets/R/rmarkdown/test_doc.R",
+    output_format=rmarkdown::html_document(toc = T, keep_md=F),
+    output_dir=getwd(),
+    output_options=list(toc="yes"))
\ No newline at end of file

R/rendr/toggle_code_sections.js

+$(document).ready(function () {
+    var codeElements = $(".r");
+
+    codeElements.filter("pre").before($('<button class="toggle_code">Show Code</button>'));
+    codeElements.filter("pre").hide()
+
+    $(".toggle_code").on("click", function () {
+        $(this).next().slideToggle()
+
+        if($(this).text()=="Hide Code"){
+            $(this).text("Show code")
+        }else {
+            $(this).text("Hide Code")
+        }
+    });
+
+
+//$(".r").filter("pre:first")
+});