| ... | ... |
@@ -1,7 +1,7 @@ |
| 1 | 1 |
Package: pipeComp |
| 2 | 2 |
Type: Package |
| 3 | 3 |
Title: pipeComp pipeline benchmarking framework |
| 4 |
-Version: 0.99.38 |
|
| 4 |
+Version: 0.99.39 |
|
| 5 | 5 |
Depends: R (>= 4.0) |
| 6 | 6 |
Authors@R: c( |
| 7 | 7 |
person("Pierre-Luc", "Germain", email="[email protected]", role=c("cre","aut"), comment = c(ORCID = "0000-0003-3418-4218")),
|
| ... | ... |
@@ -63,7 +63,7 @@ seWrap <- function(sce, min.cells=10, min.features=0){
|
| 63 | 63 |
min.features=min.features, |
| 64 | 64 |
meta.data=as.data.frame(colData(sce)), |
| 65 | 65 |
project = "scRNAseq" ) |
| 66 |
- Misc(se)$rowData <- as.data.frame(rowData(sce)) |
|
| 66 |
+ Misc(se, "rowData") <- as.data.frame(rowData(sce)) |
|
| 67 | 67 |
if("logcounts" %in% assayNames(sce)){
|
| 68 | 68 |
se <- ScaleData(se, verbose = FALSE) |
| 69 | 69 |
sce <- sce[row.names(se),] |
| ... | ... |
@@ -92,7 +92,7 @@ sceWrap <- function(seu) {
|
| 92 | 92 |
sce <- sce[row.names(norm),] |
| 93 | 93 |
logcounts(sce) <- norm |
| 94 | 94 |
} |
| 95 |
- rowData(sce) <- Misc(seu)$rowData[row.names(sce),] |
|
| 95 |
+ rowData(sce) <- Misc(seu, "rowData")[row.names(sce),] |
|
| 96 | 96 |
if(length(VariableFeatures(seu))) |
| 97 | 97 |
metadata(sce)$VariableFeats <- VariableFeatures(seu) |
| 98 | 98 |
if(length(Reductions(seu))>0){
|
