Error in `vsearch_available(vsearch_executable)`: Cannot run vsearch from R, use set_vsearch_executable() to set proper command to invoke vsearch

test_that("error when fastq_input has incorrect columns if input is tibble", {
R1 <- readRDS(test_path("testdata", "R1_fastq_df.rds")) |>
"FASTQ object must contain columns: Header, Sequence, Quality")
test_that("error when reverse has incorrect columns if input is tibble", {
R2 <- readRDS(test_path("testdata", "R2_fastq_df.rds")) |>
"Reverse FASTQ object must contain columns: Header, Sequence, Quality")
test_that("error if invalid quantile range", {
"Invalid values for quantile range. Choose values between 0 and 1.")
"Invalid quantile range: 'quantile_lower' must be smaller than 'quantile_upper'.")
test_that("plot_base_quality handles forward FASTQ input as file", {
quality_plot <- plot_base_quality(fastq_input = R1)
test_that("plot_base_quality handles reverse input correctly", {
quality_plot <- plot_base_quality(fastq_input = R1,
test_that("plot_base_quality disables title correctly", {
test_that("plot_base_quality only shows mean line", {
test_that("plot_base_quality works with in-memory tibble input", {
test_that("plot_base_quality returns ggplot with neither median nor mean", {
test_that("plot_base_quality returns ggplot with overlap box", {
test_that("plot_base_quality downsamples if more than 10 000 reads", {
# Create a larger datasets by repeating the original data
R1_large <- R1[rep(1:nrow(R1), length.out = 10001), ]
R2_large <- R2[rep(1:nrow(R2), length.out = 10001), ]
# Generate unique headers for both datasets
quality_plot <- plot_base_quality(fastq_input = R1_large,

"error when fastq_input has incorrect columns if input is tibble"
"FASTQ object must contain columns: Header, Sequence, Quality"
"error when reverse has incorrect columns if input is tibble"
"Reverse FASTQ object must contain columns: Header, Sequence, Quality"
"Invalid values for quantile range. Choose values between 0 and 1."
"Invalid quantile range: 'quantile_lower' must be smaller than 'quantile_upper'."
"plot_base_quality handles forward FASTQ input as file"
"plot_base_quality handles reverse input correctly"
"plot_base_quality only shows mean line"
"plot_base_quality works with in-memory tibble input"
"plot_base_quality returns ggplot with neither median nor mean"
"plot_base_quality returns ggplot with overlap box"
"plot_base_quality downsamples if more than 10 000 reads"