From b23e91a411378197d9eb8737685df88d26d235f1 Mon Sep 17 00:00:00 2001
From: Holger Brandl <holgerbrandl@gmail.com>
Date: Wed, 2 Sep 2015 11:14:20 +0200
Subject: [PATCH] cont.
---
R/rendr/rmd_playground.R | 6 ++++++
R/rendr/toggle_code_sections.js | 19 +++++++++++++++++++
2 files changed, 25 insertions(+)
create mode 100644 R/rendr/rmd_playground.R
create mode 100644 R/rendr/toggle_code_sections.js
diff --git a/R/rendr/rmd_playground.R b/R/rendr/rmd_playground.R
new file mode 100644
index 0000000..62fbd1a
--- /dev/null
+++ b/R/rendr/rmd_playground.R
@@ -0,0 +1,6 @@
+## [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
diff --git a/R/rendr/toggle_code_sections.js b/R/rendr/toggle_code_sections.js
new file mode 100644
index 0000000..d42a718
--- /dev/null
+++ b/R/rendr/toggle_code_sections.js
@@ -0,0 +1,19 @@
+$(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")
+});
--
GitLab