fileLocations <- system.file("extdata",package="tracktables")
bigwigs <- dir(fileLocations,pattern="*.bw",full.names=TRUE)
intervals <- dir(fileLocations,pattern="*.bed",full.names=TRUE)
bigWigMat <- cbind(gsub("_Example.bw","",basename(bigwigs)),
bigwigs)
intervalsMat <- cbind(gsub("_Peaks.bed","",basename(intervals)),
intervals)
fileSheet <- merge(bigWigMat,intervalsMat,all=TRUE)
fileSheet <- as.matrix(cbind(fileSheet,NA))
colnames(fileSheet) <- c("SampleName","bigwig","interval","bam")
MakeIGVSessionXML(fileSheet,igvdirectory=getwd(),"Example","mm9")Run the code above in your browser using DataLab