Fixing formatting unit test

OHDSI · Jan 16, 2025 · b25f4db · b25f4db
1 parent be60d19
commit b25f4db
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/Formatting.R b/R/Formatting.R
@@ -147,6 +147,7 @@ MapIds <- function(
       covariateId = covariateData$covariates %>%
         dplyr::inner_join(covariateData$rowMap, by = "rowId") %>% # first restrict the covariates to the rowMap$rowId
         dplyr::distinct(.data$covariateId) %>%
+        dplyr::arrange(.data$covariateId) %>%
         dplyr::pull()
     )
     mapping$columnId <- 1:nrow(mapping)

diff --git a/tests/testthat/test-formatting.R b/tests/testthat/test-formatting.R
@@ -142,7 +142,7 @@ test_that("toSparseM", {
   sparseMat.test <- toSparseM(FplpData, Fpopulation, map = NULL)
   matrix.real <- matrix(rep(0, 5 * 7), ncol = 7)
   x <- c(1, 1, 1, 3, 3, 3, 5, 5)
-  y <- c(1, 2, 3, 2, 4, 5, 6, 7)
+  y <- c(5, 6, 7, 1, 2, 7, 3, 4)
   for (a in 1:8) matrix.real[x[a], y[a]] <- 1
   expect_that(as.matrix(sparseMat.test$dataMatrix), is_equivalent_to(matrix.real))