fix #463

Author: ShixiangWang

DESCRIPTION

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

NEWS.md

@@ -1,3 +1,8 @@
+# sigminer 2.3.2
+
+- Fixed a bug that generating a wrong data type when only a sample is handled (#463).
+Thanks to @selkamand.
+
 # sigminer 2.3.1
 
 - Updated `sig_fit()` related documents for better usage (#454).

R/get_sv.R

@@ -290,7 +290,7 @@ get_matrix_sv <- function(CN_components, indices = NULL) {
 
   sv_mat <- as.matrix(sv_mat[, sort(colnames(sv_mat))])
 
-  sv_mat_32 <- sv_mat[, !(grepl("<1Kb", colnames(sv_mat)))]
+  sv_mat_32 <- sv_mat[, !(grepl("<1Kb", colnames(sv_mat))), drop = FALSE]
 
   return(list(
     RS_32 = sv_mat_32,