if (!isTRUE(as.logical(Sys.getenv("CI")))) {
    test_that(
        "Tests autoFlow report creation", {
        output_file <- paste0(tempdir(),"/report.html")
        
        taxa <- metagenomics$new(
            biomData = "input/metagenomics/biom_with_taxonomy_hdf5.biom",
            metaData = "input/metagenomics/metadata.tsv",
            treeData = "input/metagenomics/rooted_tree.newick"
        )
        suppressWarnings(taxa$autoFlow(filename = output_file))

        expect_true(file.exists(output_file))
        
        file.remove(output_file)
        }
    )
}