Commit 48e5f59c authored by Holger Brandl's avatar Holger Brandl

fixed argument

parent a81401bd
......@@ -34,6 +34,9 @@ anno_db = opts$anno_db
assert(anno_db %in% c("TSS.zebrafish.Zv9", "TSS.mouse.GRCm38"), "invalid annotation descriptor, see https://www.bioconductor.org/packages/devel/bioc/manuals/ChIPpeakAnno/man/ChIPpeakAnno.pdf")
results_prefix = "peak_report"
########################################################################################################################
#' # Called Peaks Overview
......@@ -243,9 +246,11 @@ annoPeaks %>% ggplot(aes(sample, fill = insideFeature)) +
facet_wrap(~ peak_type) +
rot_x_lab()
write_tsv(annoPeaks, path="annoPeaks.txt")
# annoPeaks <- read_tsv("annoPeaks.txt")
#' [annoPeaks](annoPeaks.txt)
peaks %<>% tbl_df
write_tsv(annoPeaks, path=add_prefix("annoPeaks.txt"))
# annoPeaks <- read_tsv(add_prefix("annoPeaks.txt"))
#' [annoPeaks](`r add_prefix("annoPeaks.txt")`)
session::save.session(".peak_report.dat");
# session::restore.session(".peak_report.dat");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment