From fc2e48e7491d0a0372cd5b17a420e9a8389b2ae5 Mon Sep 17 00:00:00 2001 From: Alan O'Callaghan Date: Sun, 28 Jan 2024 14:05:55 +0000 Subject: [PATCH] Resolve #204 --- DESCRIPTION | 4 ++-- R/plot_reddim.R | 24 ++++++++++++------------ 2 files changed, 14 insertions(+), 14 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 02ac538f..c8134bb0 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -12,8 +12,8 @@ Authors@R: c( person("Leo", "Lahti", role=c("ctb"), email="leo.lahti@utu.fi", comment = c(ORCID = "0000-0001-5537-637X")) ) -Version: 1.31.1 -Date: 2023-11-16 +Version: 1.31.2 +Date: 2024-01-28 License: GPL-3 Title: Single-Cell Analysis Toolkit for Gene Expression Data in R Description: A collection of tools for doing various analyses of diff --git a/R/plot_reddim.R b/R/plot_reddim.R index 6ce319ba..1037c889 100644 --- a/R/plot_reddim.R +++ b/R/plot_reddim.R @@ -66,43 +66,43 @@ #' plotMDS(example_sce) #' #' @export -plotPCASCE <- function(object, ..., ncomponents=2) { - plotReducedDim(object, ncomponents = ncomponents, dimred = "PCA", ...) +plotPCASCE <- function(object, ..., ncomponents=2, dimred = "PCA") { + plotReducedDim(object, ncomponents = ncomponents, dimred = dimred, ...) } #' @rdname plot_reddim #' @aliases plotTSNE #' @export -plotTSNE <- function(object, ..., ncomponents=2) { - plotReducedDim(object, ncomponents = ncomponents, dimred = "TSNE", ...) +plotTSNE <- function(object, ..., ncomponents=2, dimred = "TSNE") { + plotReducedDim(object, ncomponents = ncomponents, dimred = dimred, ...) } #' @rdname plot_reddim #' @aliases plotUMAP #' @export -plotUMAP <- function(object, ..., ncomponents=2) { - plotReducedDim(object, ncomponents = ncomponents, dimred = "UMAP", ...) +plotUMAP <- function(object, ..., ncomponents=2, dimred = "UMAP") { + plotReducedDim(object, ncomponents = ncomponents, dimred = dimred, ...) } #' @rdname plot_reddim #' @aliases plotDiffusionMap #' @export -plotDiffusionMap <- function(object, ..., ncomponents=2) { - plotReducedDim(object, ncomponents = ncomponents, dimred = "DiffusionMap", ...) +plotDiffusionMap <- function(object, ..., ncomponents=2, dimred = "DiffusionMap") { + plotReducedDim(object, ncomponents = ncomponents, dimred = dimred, ...) } #' @rdname plot_reddim #' @aliases plotMDS #' @export -plotMDS <- function(object, ..., ncomponents=2) { - plotReducedDim(object, ncomponents = ncomponents, dimred = "MDS", ...) +plotMDS <- function(object, ..., ncomponents=2, dimred = "MDS") { + plotReducedDim(object, ncomponents = ncomponents, dimred = dimred, ...) } #' @rdname plot_reddim #' @aliases plotNMF #' @export -plotNMF <- function(object, ..., ncomponents=2) { - plotReducedDim(object, ncomponents = ncomponents, dimred = "NMF", ...) +plotNMF <- function(object, ..., ncomponents=2, dimred = "NMF") { + plotReducedDim(object, ncomponents = ncomponents, dimred = dimred, ...) } #' @rdname plot_reddim