Minor updates to specify variable classes.

SydneyBioX · Aug 27, 2024 · b0c2f90 · b0c2f90
1 parent 0ffcc55
commit b0c2f90
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -18,7 +18,7 @@ Description: clustSIGNAL: clustering of Spatially Informed Gene expression with
 License: GPL-2
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Depends: R (>= 4.0.0), SpatialExperiment, doParallel
 Imports: BiocNeighbors, bluster, scater, aricode, distances, cluster, ggplot2, patchwork, BiocStyle
 Suugests: knitr, rmarkdown

diff --git a/R/clustering.R b/R/clustering.R
@@ -50,7 +50,7 @@ nsClustering <- function(spe, dimRed, reclust, ...) {
                                                  second = bluster::NNGraphParam(k = 5, cluster.fun = "louvain")))
             subclusters_list[[c]] <- setNames(paste0(c, ".", nsClustX), colnames(speX))
         }
-        spe$nsSubcluster <- unlist(subclusters_list)[colnames(spe)]
+        spe$nsSubcluster <- factor(unlist(subclusters_list)[colnames(spe)])
         print(paste("Nonspatial subclustering performed. Subclusters =", length(unique(spe$nsSubcluster)), Sys.time()))
 
     } else if (reclust == TRUE) {

diff --git a/R/entropyMeasure.R b/R/entropyMeasure.R
@@ -42,7 +42,7 @@ entropyMeasure <- function(spe, cells, regXclust, threads) {
     } else if (check.NA.values != 0) {
         stop("Missing entropy values.")
     } else {
-        spe$entropy <- as.matrix(unlist(regEntropy))
+        spe$entropy <- as.vector(unlist(regEntropy))
         print(paste("Region domainness calculated.", Sys.time()))
     }
     return(spe)