refactor to remove forcats dep

AlineTalhouk · Sep 28, 2023 · 8d2816c · 8d2816c
1 parent 7c5435e
commit 8d2816c
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -38,7 +38,6 @@ Imports:
     clv,
     clValid,
     dplyr (>= 0.7.5),
-    forcats,
     ggplot2,
     infotheo,
     klaR,

diff --git a/R/graphs.R b/R/graphs.R
@@ -92,7 +92,7 @@ get_cdf <- function(mat) {
     purrr::flatten_dfc() %>%
     tidyr::gather("Group", "CDF", names(.)) %>%
     tidyr::separate("Group", c("k", "Method"), sep = "\\.") %>%
-    dplyr::mutate(k = forcats::fct_inseq(.data$k))
+    dplyr::mutate(k = factor(.data$k, levels = as.integer(unique(.data$k))))
 }
 
 #' @param main heatmap title. If `NULL` (default), the titles will be taken from