add function venn_cluster

		}

	}

}

venn_cluster <- function(

					.data,

					regulation = "up",

					fold_change = 2,

					p_value = 0.01

){

	x <-	venn_plot(

				.data,

				regulation = regulation,

				fold_change = fold_change,

				p_value = p_value,

				dt = T

			)

	1:nrow(x) |>

	lapply(

		\(n){

			data.table(

				gene_name = x[n,3] |> unlist(),

				group = x[n,5],

				cluster = n

			)	

		}

	) |>

	rbindlist() |>

	merge(

		.data,

		by = "gene_name"

	)

}

 No newline at end of file