## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----eval=FALSE--------------------------------------------------------------- # if (!requireNamespace("BiocManager", quietly = TRUE)) # install.packages("BiocManager") # BiocManager::install("shinyepico") ## ----eval=FALSE--------------------------------------------------------------- # install.packages("remotes") # library("remotes") # install_github("omorante/shinyepico", upgrade="always", dependencies = TRUE) ## ----echo=FALSE, tidy=FALSE, comment=NA--------------------------------------- writeLines(unlist(strsplit(packageDescription("shinyepico")[["Imports"]],", "))) ## ----echo=FALSE, tidy=FALSE, comment=NA--------------------------------------- writeLines(unlist(strsplit(packageDescription("shinyepico")[["Suggests"]],", "))) ## ----eval=FALSE--------------------------------------------------------------- # library("shinyepico") # set.seed(123) # run_shinyepico() ## ----echo=FALSE, eval=TRUE---------------------------------------------------- knitr::kable(read.csv("./Sample_Sheet.csv")) ## ----echo=FALSE, eval=TRUE---------------------------------------------------- knitr::kable(data.frame(MAC = c(1,0,1,0,0,1), MO = c(0,1,0,1,1,0), DonorB = c(0,1,0,0,0,1), DonorC=c(0,0,1,0,1,0))) ## ----echo=FALSE, eval=TRUE---------------------------------------------------- knitr::kable(data.frame(contrast = "MAC-MO", Hypermethylated=2275, Hypomethylated=21, total=2296)) ## ----echo=FALSE, eval=TRUE---------------------------------------------------- knitr::kable(data.frame(contrast = rep("MAC-MO",3), Hypermethylated=c(64,160,45), Hypomethylated=c(78,111,62),total=c(142,271,107))) ## ----echo=FALSE--------------------------------------------------------------- sessionInfo()