Error in `Feature.Reduction.Umap(pca_obj, draw = TRUE, save = TRUE)`: unused argument (draw = TRUE)

test_that("data loading works correctly", {
test_that("data smoothing works correctly", {
test_that("baseline correction works correctly", {
test_that("data normalization works correctly", {
test_that("quality control works correctly", {
cleaned_obj <- Qualitycontrol.ICOD(normalized_obj, var_tol = 0.4)
test_that("PCA reduction works correctly", {
pca_obj <- Feature.Reduction.Pca(cleaned_obj, show = FALSE, save = FALSE)
test_that("PCA plot generation works correctly", {
pca_obj <- Feature.Reduction.Pca(cleaned_obj, show = TRUE, save = FALSE)
# test_that("clustering analysis works correctly", {
#   normalized_obj <- Preprocessing.Normalize(baseline_obj, "ch")
#   cleaned_obj <- Qualitycontrol.ICOD(normalized_obj@datasets$normalized.data, var_tol = 0.4)
#   pca_obj <- Feature.Reduction.Pca(cleaned_obj, draw = FALSE, save = FALSE)
#   cluster_info <- Phenotype.Analysis.Louvaincluster(object = pca_obj, resolutions = c(0.8))
test_that("t-SNE reduction works correctly", {
pca_obj <- Feature.Reduction.Pca(cleaned_obj, show= FALSE, save = FALSE)
tsne_obj <- Feature.Reduction.Tsne(pca_obj, show = TRUE, save = FALSE)
test_that("UMAP reduction works correctly", {
umap_obj <- Feature.Reduction.Umap(pca_obj, show = TRUE, save = FALSE)
test_that("UMAP plot generation works correctly", {
umap_obj <- Feature.Reduction.Umap(pca_obj, draw = TRUE, save = TRUE)