Update count_clusters.R

R/count_clusters.R

@@ -35,7 +35,7 @@ count_clusters <- function(clus_tbl_list){
    # Transform the data frame from wide to long using pivot_longer(), and create
    # a new column called "threshold" with the values previously used as column names
    # Rename the "value" column to "cluster_number" using dplyr::rename()
-   clus_counts %>%
+   clus_counts <- clus_counts %>%
      bind_rows() %>%
      pivot_longer(everything()) %>%
      mutate(threshold = as.numeric(name)) %>%