Fixed issue where opticluster was returning a matrix array and not a …

…data.frame.
SchlossLab · Apr 26, 2024 · 11b7210 · 11b7210
1 parent 3a4db38
commit 11b7210
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/R/Cluster.R b/R/Cluster.R
@@ -21,5 +21,7 @@ OptiCluster <- function(sparse_matrix, cutoff, iterations)
   matrix_length <- length(indexOneList)
   clustering_output_string <- MatrixToOpiMatrixCluster(indexOneList, indexTwoList, valueList, cutoff,
                                    matrix_length, matrix_length, iterations)
-  return(t(read.table(text = clustering_output_string, sep = "\t", header = TRUE)))
+  df <- data.frame(t(read.table(text = clustering_output_string, sep = "\t", header = TRUE)))
+  colnames(df)[1] <- "cluster"
+  return(df)
 }
diff --git a/tests/extdata/df_test_file.RDS b/tests/extdata/df_test_file.RDS
diff --git a/tests/testthat/test-test-opticluster.R b/tests/testthat/test-test-opticluster.R
@@ -2,7 +2,6 @@ test_that("Clustering returns proper results", {
   expected_df <- readRDS(here::here("tests/extdata/df_test_file.RDS"))
   matrix <- readRDS(here::here("tests/extdata/matrix_data.RDS"))
   df <- Opticluster::OptiCluster(matrix, 0.2, 2)
-  list <- c("matrix", "array")
-  expect_equal(class(df), list)
+  expect_equal(class(df), "data.frame")
   expect_equal(df, expected_df)
 })