diff --git a/R/AnnotationGenome.R b/R/AnnotationGenome.R index d35fa9ba..c61b8bb8 100644 --- a/R/AnnotationGenome.R +++ b/R/AnnotationGenome.R @@ -41,7 +41,7 @@ createGenomeAnnotation <- function( ################## message("Getting blacklist..") - blacklist <- .getBlacklist(genome = bsg@provider_version) + blacklist <- .getBlacklist(genome = bsg@metadata$genome) }else{ diff --git a/R/AnnotationPeaks.R b/R/AnnotationPeaks.R index 60b30642..04913b54 100644 --- a/R/AnnotationPeaks.R +++ b/R/AnnotationPeaks.R @@ -606,7 +606,7 @@ addArchRAnnotations <- function( } } - genome <- tolower(validBSgenome(getGenome(ArchRProj))@provider_version) + genome <- tolower(validBSgenome(getGenome(ArchRProj))@metadata$genome) annoPath <- file.path(find.package("ArchR", NULL, quiet = TRUE), "data", "Annotations") dir.create(annoPath, showWarnings = FALSE) diff --git a/R/Embedding.R b/R/Embedding.R index ba59be35..80b4cf1a 100644 --- a/R/Embedding.R +++ b/R/Embedding.R @@ -223,14 +223,14 @@ addUMAP <- function( for (i in seq_len(n_metrics)) { nn_tmpfname <- file.path(uwot_dir, paste0("nn", i)) if (n_metrics == 1) { - model$nn_index$save(nn_tmpfname) - model$nn_index$unload() - model$nn_index$load(nn_tmpfname) + model$nn_index$ann$save(nn_tmpfname) + model$nn_index$ann$unload() + model$nn_index$ann$load(nn_tmpfname) } else { - model$nn_index[[i]]$save(nn_tmpfname) - model$nn_index[[i]]$unload() - model$nn_index[[i]]$load(nn_tmpfname) + model$nn_index[[i]]$ann$save(nn_tmpfname) + model$nn_index[[i]]$ann$unload() + model$nn_index[[i]]$ann$load(nn_tmpfname) } } setwd(mod_dir)