if (FALSE) {
# Define arguments
fastx_input <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small_R1.fq")
fastx_output <- NULL
output_format <- "fastq"
# Dereplicate sequences and return a FASTQ tibble
derep_R1 <- vs_fastx_uniques(fastx_input = fastx_input,
fastx_output = fastx_output,
output_format = output_format)
# Dereplicate sequences and write derelicated sequences to a file
vs_fastx_uniques(fastx_input = fastx_input,
fastx_output = "dereplicated_sequences.fq",
output_format = output_format)
}
Run the code above in your browser using DataLab