# NOT RUN {
# This example requires the external Prodigal software
# Using a genome file in this package
xpth <- file.path(path.package("micropan"),"extdata")
genome.file <- file.path(xpth,"Example_genome.fasta.xz")
# We need to uncompress it first...
tf <- tempfile(fileext=".xz")
s <- file.copy(genome.file,tf)
tf <- xzuncompress(tf)
# Calling Prodigal, and writing all predicted proteins to a file as well
prot.file <- tempfile(fileext=".fasta")
gff.table <- prodigal(tf,prot.file)
# Reading protein file as well
proteins <- readFasta(prot.file)
# ...and cleaning...
s <- file.remove(tf,prot.file)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab