# NOT RUN {
if (is_tmhmm_installed()) {
# Write results to a temporary file
tmhmm_filename <- tempfile()
run_tmhmm_to_file(
fasta_filename = system.file(
"extdata", "tmhmm.fasta", package = "tmhmm"
),
tmhmm_filename = tmhmm_filename
)
# Result is written to 'tmhmm_filename', cleaning up
file.remove(tmhmm_filename)
}
# }
Run the code above in your browser using DataLab