Fixed the error in generating DBS and INDEL matrix when only one sample input (#453).

Author: ShixiangWang

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: sigminer
 Title: Extract, Analyze and Visualize Mutational Signatures for Genomic
     Variations
-Version: 2.3.0
+Version: 2.3.1
 Authors@R: c(
     person("Shixiang", "Wang", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-9855-7357")),

NEWS.md

@@ -1,3 +1,7 @@
+# sigminer 2.3.1
+
+- - Fixed the error in generating DBS and INDEL matrix when only one sample input (#453).
+
 # sigminer 2.3.0
 
 

R/generate_matrices.R

@@ -416,10 +416,10 @@ generate_matrix_DBS <- function(query, ref_genome, genome_build = "hg19", add_tr
 
   # Reorder mutation types
   res$all_matrices = lapply(res$all_matrices, function(x) {
-    y = x[, sort(colnames(x))]
+    y = x[, sort(colnames(x)), drop = FALSE]
     y
   })
-  res$nmf_matrix = res$nmf_matrix[, sort(colnames(res$nmf_matrix))]
+  res$nmf_matrix = res$nmf_matrix[, sort(colnames(res$nmf_matrix)), drop = FALSE]
 
   res
 }
@@ -676,10 +676,10 @@ generate_matrix_INDEL <- function(query, ref_genome, genome_build = "hg19", add_
   }
   # Reorder mutation types
   res$all_matrices = lapply(res$all_matrices, function(x) {
-    y = x[, sort(colnames(x))]
+    y = x[, sort(colnames(x)), drop = FALSE]
     y
   })
-  res$nmf_matrix = res$nmf_matrix[, sort(colnames(res$nmf_matrix))]
+  res$nmf_matrix = res$nmf_matrix[, sort(colnames(res$nmf_matrix)), drop = FALSE]
 
   res
 }