shinyepico: ShinyÉPICo

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