update multimodal reduced dims colnames, func documentation

Author: immanuelazn

R/HelperUtils.R

@@ -208,12 +208,12 @@ mapLabels <- function(labels = NULL, newLabels = NULL, oldLabels = names(newLabe
 #'
 #' @param .expr Expression to be evaluated. 
 #' @param .f String or function. If a string (possibly representing a 
-#'   regular expression), any warning message generated when \code{.expr} is 
-#'   evaluated will be suppressed if \code{grepl{}} finds that the string
-#'   matches the warning message.\cr
-#'     \indent If a function, the warning message will be passed to the 
-#'   function, and the function must return \code{TRUE} or \code{FALSE}. See
-#'   the examples for details.
+#' regular expression), any warning message generated when \code{.expr} is 
+#' evaluated will be suppressed if \code{grepl{}} finds that the string
+#' matches the warning message.
+#' If a function, the warning message will be passed to the 
+#' function, and the function must return \code{TRUE} or \code{FALSE}. See
+#' the examples for details.
 .suppressSpecificWarnings <- function(.expr, .f, ...) {
   eval.parent(
     substitute(

R/MultiModal.R

@@ -406,25 +406,11 @@ addCombinedDims <- function(
     normV <- 1 / sqrt(sum(cV))
     rD * normV * dimWeights[x]
   }) %>% Reduce("cbind", .)
-
+  colnames(combinedDims) <- paste0('LSI',1:length(colnames(combinedDims)))
   ArchRProj@reducedDims[[name]] <- SimpleList(
     matRD = combinedDims, 
     scaleDims = NA, 
     corToDepth = list(scaled = rep(0, ncol(combinedDims)), none = rep(0, ncol(combinedDims)))
   )
-
   ArchRProj
-
 }
-
-
-
-
-
-
-
-
-
-
-
-