(Sorry about that, but we can’t show files that are this big right now.) ...
peakAnno <- annotatePeak(peaks, tssRegion=c(TSS_start, TSS_end), ...