From 6606eb7160a027fced36b4fddc6208a62f3c7f45 Mon Sep 17 00:00:00 2001 From: LTLA Date: Mon, 26 Feb 2024 17:04:24 -0800 Subject: [PATCH] More fixes. --- R/MonacoImmuneData.R | 2 +- R/searchReferences.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/MonacoImmuneData.R b/R/MonacoImmuneData.R index 121f7ed..b1c8fad 100644 --- a/R/MonacoImmuneData.R +++ b/R/MonacoImmuneData.R @@ -76,7 +76,7 @@ MonacoImmuneData <- function(ensembl=FALSE, cell.ont=c("all", "nonna", "none"), cell.ont <- match.arg(cell.ont) if (!legacy && cell.ont == "all") { - se <- fetchReference("monaco", "2024-02-26", realize.assays=TRUE) + se <- fetchReference("monaco_immune", "2024-02-26", realize.assays=TRUE) } else { version <- "1.0.0" se <- .create_se("monaco_immune", version, diff --git a/R/searchReferences.R b/R/searchReferences.R index 24c8aef..156f918 100644 --- a/R/searchReferences.R +++ b/R/searchReferences.R @@ -43,7 +43,7 @@ searchReferences <- function(query, cache=cacheDirectory(), overwrite=FALSE, lat if (!latest) { stmt <- paste0(stmt, ", versions.latest AS latest") } - stmt <- paste0(stmt, " FROM paths LEFT JOIN versions ON paths.vid = versions.vid WHERE versions.project = 'scRNAseq'") + stmt <- paste0(stmt, " FROM paths LEFT JOIN versions ON paths.vid = versions.vid WHERE versions.project = 'celldex'") if (latest) { stmt <- paste0(stmt, " AND versions.latest = 1") }