🔖 v1.0.18

ShixiangWang · Sep 15, 2020 · 5aed104 · 5aed104
1 parent 862c822
commit 5aed104
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,6 @@
 # sigminer 1.0.18
 
+- Fixed bugs when outputing only 1 signatures.
 - Fixed label inverse bug in `add_labels()`, thanks to TaoTao for reporting.
 
 # sigminer 1.0.17

diff --git a/R/get_sig_exposure.R b/R/get_sig_exposure.R
@@ -65,6 +65,10 @@ get_sig_exposure <- function(Signature,
     return(h)
   } else {
     h.norm <- apply(h, 2, function(x) x / sum(x))
+    if (nrow(h) == 1L) {
+      h.norm <- t(as.matrix(h.norm))
+      rownames(h.norm) <- rownames(h)
+    }
     h.norm <- t(h.norm) %>%
       as.data.frame() %>%
       tibble::rownames_to_column(var = "sample") %>%

diff --git a/R/get_sig_similarity.R b/R/get_sig_similarity.R
@@ -240,7 +240,7 @@ get_sig_similarity <- function(Signature, Ref = NULL,
 
   if (set_order) {
     all_matches <- unique(all_matches)
-    corMat <- corMat[, c(all_matches, setdiff(colnames(corMat), all_matches))]
+    corMat <- corMat[, c(all_matches, setdiff(colnames(corMat), all_matches)), drop = FALSE]
   }
 
   res <- list(

diff --git a/docs/news/index.html b/docs/news/index.html