library(rbiom)
tdir <- tempfile()
write_qiime2(hmp50, tdir, 'qiime2_')
write_mothur(hmp50, tdir, 'mothur_')
list.files(tdir)
readLines(file.path(tdir, 'qiime2_metadata.tsv'), n = 4)
readLines(file.path(tdir, 'mothur_taxonomy.tsv'), n = 3)
unlink(tdir, recursive = TRUE)
Run the code above in your browser using DataLab