Don't don't coerce data.frame to vector when length(columns) == 1

This is another fix for #24
Novartis · Mar 30, 2022 · fb1115a · fb1115a
1 parent 07e29c1
commit fb1115a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/pisces/R/make_expression_matrix.R b/pisces/R/make_expression_matrix.R
@@ -150,8 +150,8 @@ rescaleTPM <- function(mat, columns = colnames(mat), rows = 1:nrow(mat), precisi
     tpm.scale.factors <- 1e+06/sums.before.norm
     scaled_df <- mat
     scaled_df[rows, columns] <- data.frame(mapply("*", scaled_df[rows, 
-        columns], tpm.scale.factors))
-    scaled_df[, columns] <- round(scaled_df[, columns], precision)
+        columns, drop=F], tpm.scale.factors))
+    scaled_df[, columns] <- round(scaled_df[, columns, drop=F], precision)
     return(scaled_df)
     }