pbmc <- RunAPOTC(
seurat_obj = get(data("combined_pbmc")),
reduction_base = "umap",
clonecall = "strict",
run_id = "run1",
verbose = FALSE
)
getApotcDataIds(pbmc)
#> [1] "run1"
# delete the data
pbmc <- deleteApotcData(pbmc, "run1")
getApotcDataIds(pbmc)
#> NULL
Run the code above in your browser using DataLab