Import S4Vectors and use values arg from append

waldronlab · Aug 17, 2023 · 0a0d066 · 0a0d066
1 parent 1fb9b2b
commit 0a0d066
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -23,6 +23,7 @@ Imports:
   coin,
   MASS,
   ggplot2,
+  S4Vectors,
   stats,
   methods
 Suggests: 

diff --git a/R/utils.R b/R/utils.R
@@ -28,7 +28,7 @@ relativeAb <- function(se, assay = 1L) {
     res <- expr_data / div
     assaylist <- assays(se)
     newalist <- append(
-        assaylist, value = S4Vectors::SimpleList(rel_abs = res), after = 0L
+        assaylist, values = S4Vectors::SimpleList(rel_abs = res), after = 0L
     )
     assays(se) <- newalist
     se