if (FALSE) {
# Define arguments
query_file <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small.fasta")
db <- file.path(file.path(path.package("Rsearch"), "extdata"),
"sintax_db.fasta")
# Detect chimeras with default parameters and return FASTA files
vs_uchime_ref(fasta_input = query_file,
database = db,
nonchimeras = "nonchimeras.fa",
chimeras = "chimeras.fa")
# Detect chimeras with default parameters and return a FASTA tibble
nonchimeras.tbl <- vs_uchime_ref(fasta_input = query_file,
database = db,
nonchimeras = NULL,
chimeras = NULL)
# Get chimeras tibble
chimeras.tbl <- attr(nonchimeras.tbl, "chimeras")
# Get statistics tibble
statistics.tbl <- attr(nonchimeras.tbl, "statistics")
}
Run the code above in your browser using DataLab