<- to = in function

willgryan · Jun 1, 2024 · aa9cd61 · aa9cd61
1 parent 8eca762
commit aa9cd61
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/generate_themes.R b/R/generate_themes.R
@@ -75,7 +75,7 @@ generate_themes <-
       cosine_dissimilarity() %>%
       stats::hclust(method = hclust_method)
 
-    clustering <- clustering %>%
+    clustering = clustering %>%
       dplyr::mutate(Cluster = factor(.data$Cluster, levels = clust2$labels[clust2$order])) %>%
       tidyr::separate(
         .data$UniqueID,
@@ -85,7 +85,7 @@ generate_themes <-
       ) %>%
       dplyr::inner_join(PAVER_result$goterms_df, by = "GOID")
 
-    avg_cluster_embeddings <- avg_cluster_embeddings %>%
+    avg_cluster_embeddings = avg_cluster_embeddings %>%
       dplyr::mutate(Cluster = factor(.data$Cluster, levels = clust2$labels[clust2$order]))
 
     #Compute the MDS of the average embedding matrix