# Using a BLAST result file in this package
# We need to uncompress it first...
extdata.path <- file.path(path.package("micropan"),"extdata")
filenames <- "GID1_vs_GID2.txt"
pth <- lapply( file.path( extdata.path, paste( filenames, ".xz", sep="" ) ), xzuncompress )
#...then we can read it...
blast.table <- readBlastTable(file.path(extdata.path,filenames))
# ...and compressing it again...
pth <- lapply( file.path( extdata.path, filenames ), xzcompress )
Run the code above in your browser using DataLab