View source: R/get_NOTT2019_interactome.R
get_NOTT2019_interactome | R Documentation |
Originally from Nott et al. (2019). Specifically: aay0793-Nott-Table-S5.xlsx.
get_NOTT2019_interactome()
https://doi.org/10.1126/science.aay0793
file <- file.path(
"~/Desktop/Fine_Mapping/echolocatoR/annotations",
"NOTT2019/aay0793-Nott-Table-S5.xlsx"
)
sheets <- readxl::excel_sheets(file)
enh_prom_sheets <- grep("enhancers|promoters", sheets, value = TRUE)
other_sheets <- grep("enhancers|promoters", sheets,
value = TRUE,
invert = TRUE
)
NOTT2019_interactome <- lapply(other_sheets, function(s) {
readxl::read_excel(file, sheet = s, skip = 2)
})
NOTT2019_interactome <- append(
NOTT2019_interactome,
lapply(enh_prom_sheets, function(s) {
readxl::read_excel(file,
sheet = s, skip = 2,
col_names = c("chr", "start", "end")
)
})
)
names(NOTT2019_interactome) <- c(other_sheets, enh_prom_sheets)
#### piggyback ####
tmp <- file.path(tempdir(), "NOTT2019_interactome.rds")
saveRDS(NOTT2019_interactome, tmp)
piggyback::pb_upload(
file = tmp,
repo = "RajLabMSSM/echoannot"
)
NOTT2019_interactome <- get_NOTT2019_interactome()
Other NOTT2019:
NOTT2019_bigwig_metadata
,
NOTT2019_epigenomic_histograms()
,
NOTT2019_get_epigenomic_peaks()
,
NOTT2019_get_interactions()
,
NOTT2019_get_interactome()
,
NOTT2019_get_promoter_celltypes()
,
NOTT2019_get_promoter_interactome_data()
,
NOTT2019_get_regulatory_regions()
,
NOTT2019_plac_seq_plot()
,
NOTT2019_superenhancers()
,
get_NOTT2019_superenhancer_interactome()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.