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)

Pathway enrichment analysis {.tabset .tabset-dropdown}

Enrichment analysis by WebGestaltR

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!"}


Enrichment analysis by enrichR

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()



combiz/scFlow documentation built on Feb. 25, 2024, 10:25 a.m.