Mercurial > repos > mingchen0919 > aurora_deseq2
changeset 34:d7ff8ae0ca36 draft default tip
planemo upload commit 004a320fc0619c234164b44c64ba5dce205734e1
author | mingchen0919 |
---|---|
date | Wed, 05 Dec 2018 15:08:21 -0500 |
parents | 52364533eac5 |
children | |
files | rmarkdown_report.Rmd |
diffstat | 1 files changed, 11 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/rmarkdown_report.Rmd Wed Dec 05 12:42:57 2018 -0500 +++ b/rmarkdown_report.Rmd Wed Dec 05 15:08:21 2018 -0500 @@ -6,12 +6,10 @@ --- ```{r setup, include=FALSE, warning=FALSE, message=FALSE} -knitr::opts_chunk$set(error = TRUE, echo = TRUE) +knitr::opts_chunk$set(error = TRUE, echo = FALSE) ``` - -```{css echo=FALSE} -# code chunks scrollable +```{css, echo=FALSE} pre code, pre, code { white-space: pre !important; overflow-x: scroll !important; @@ -20,7 +18,6 @@ } ``` - ```{r, echo=FALSE} # to make the css theme to work, <link></link> tags cannot be added directly # as <script></script> tags as below. @@ -34,22 +31,25 @@ # this code chunk is purely for adding comments # below is to add jQuery and jstree javascripts ``` -<script src="https://code.jquery.com/jquery-3.3.1.min.js"></script> + <script src="vakata-jstree-3.3.5/dist/jstree.min.js"></script> ---- + +```{r, eval=FALSE, echo=FALSE} +# this code chunk is purely for adding comments # javascript code below is to build the file tree interface # see this for how to implement opening hyperlink: https://stackoverflow.com/questions/18611317/how-to-get-i-get-leaf-nodes-in-jstree-to-open-their-hyperlink-when-clicked-when ---- +``` <script> - $(function () { + jQuery(function () { // create an instance when the DOM is ready - $('#jstree').jstree().bind("select_node.jstree", function (e, data) { + jQuery('#jstree').jstree().bind("select_node.jstree", function (e, data) { window.open( data.node.a_attr.href, data.node.a_attr.target ) }); }); </script> + --- # ADD YOUR DATA ANALYSIS CODE AND MARKUP TEXT BELOW TO EXTEND THIS R MARKDOWN FILE --- @@ -84,7 +84,7 @@ ## Differential expression test results res = results(dds, contrast = c(opt$X_D, opt$X_E, opt$X_F), alpha = opt$X_I) -res +DT::datatable(as.data.frame(res)) ```