Drop unused direction factor levels

willgryan · Jul 13, 2023 · a5b54e8 · a5b54e8
1 parent e0ed04c
commit a5b54e8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/prepare_data.R b/R/prepare_data.R
@@ -24,7 +24,7 @@ prepare_data <- function(input, embeddings, ontology_index) {
     tidyr::pivot_longer(cols = c(!"GOID"), names_to = "Group") %>%
     dplyr::filter(.data$value != 0) %>%
     dplyr::mutate(
-      Direction = factor(sign(.data$value), levels = c(-1, 1), labels = c("-", "+")),
+      Direction = factor(sign(.data$value), levels = c(-1, 1), labels = c("-", "+")) %>% droplevels(),
       UniqueID = paste0(.data$GOID, "_", .data$Group)) %>%
     dplyr::distinct(.data$UniqueID, .keep_all = T)