library(DT) library(utils) library(knitr) library(htmltools) knitr::opts_chunk$set(echo = FALSE) knitr::knit_hooks$set(wrap = function(before, options, envir){ if (before){ paste0('<', options$wrap, ' align="center">') } else { paste0('</', options$wrap, '>') } })
metadata <- readRDS(params$metadata_path)
r if(is.null(metadata$WebGestaltR)){"Enrichment analysis using WebGestaltR was not performed"}
r if(isFALSE(metadata$WebGestaltR$metadata$result)){"No significant impacted pathways found at FDR <= 0.05!"}
r if(is.null(metadata$enrichR)){"Enrichment analysis using enrichR was not performed"}
r if(isFALSE(metadata$enrichR$metadata$result)){"No significant impacted pathways found at FDR <= 0.05!"}
scFlow vr utils::packageVersion("scFlow")
-- r Sys.time()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.