"Invalid output_format. Choose from fasta or fastq."
"fastq_input and reverse can be merged when files, and results written to fastq file"
"fastq_input and reverse can be merged when files, and results written to fasta file"
"fastq_input and reverse can be merged when files, and results given as fastq tibble"
"fastq_input and reverse can be merged when files, and results given as fasta tibble"
"fastq_input and reverse can be merged when tibbles, and results written to fastq file"
"fastq_input and reverse can be merged when tibbles, and results given as tibble"
"fastq_input and reverse can be merged when files, and results given as fastq tibble with vsearch_options"
"merge read pairs from a pe_df data frame"
"error when no reverse reads provided and fastq_input is not pe_df"
"error when output file is empty and no reads were merged"

fastq_input and reverse can be merged when files, and results written to fastq file

fastq_input and reverse can be merged when files, and results written to fasta file

fastq_input and reverse can be merged when files, and results given as fastq tibble

fastq_input and reverse can be merged when files, and results given as fasta tibble

fastq_input and reverse can be merged when tibbles, and results written to fastq file

fastq_input and reverse can be merged when tibbles, and results given as tibble

fastq_input and reverse can be merged when files, and results given as fastq tibble with vsearch_options

merge read pairs from a pe_df data frame

error when no reverse reads provided and fastq_input is not pe_df

error when output file is empty and no reads were merged

test_that("error when input is fasta and output_format is fastq", {
"Invalid output_format when input tibble is of type 'fasta'")
test_that("error if neither sample_size or sample_pct is specified", {
"Either sample_size or sample_pct must be specified.")
test_that("error if both sample_size and sample_pct are specified", {
"Only specify one of the following parameters, not both: sample_size, sample_pct ")
test_that("error when fastx_input has incorrect columns if input is fastq tibble", {
test_that("error when fastx_input has incorrect columns if input is fasta tibble", {
paste("Cannot find input file:", fastx_input))
test_that("subsample fastq file with size, and return fastq file", {
return_value <- vs_fastx_subsample(fastx_input = fastx_input,
test_that("subsample fastq file with size, and return fastq tibble", {
subsample_sample1_R1 <- vs_fastx_subsample(fastx_input = fastx_input,
test_that("subsample fasta file with pct, and return fasta file", {
test_that("subsample fasta file with pct, and return fasta tibble", {
test_that("subsample fastq file with size, and return fastq file with relabeling", {
test_that("subsample fastq file with size, and return fastq file with sha1 relabeling", {
test_that("subsample fastq tibble with size, and return fastq tibble", {
test_that("subsample fasta tibble with size, and return fasta tibble", {
test_that("subsample fastq file with size, and return fastq tibble with vsearch_options", {