Merge pull request #284 from stemangiola/allow-tidy-expression-in-test_gene_overrepresentation

modify test to allow tidy mutate

Author: stemangiola

R/methods.R

@@ -3727,7 +3727,7 @@ setGeneric("test_gene_overrepresentation", function(.data,
 		stop("tidybulk says: the .entrez parameter appears to no be set")
 
 	# Check column type
-	if (.data |> distinct(!!.do_test) |> sapply(class) %in% c("logical") |> not() |> any())
+	if (.data %>% mutate(my_do_test = !!.do_test) %>% pull(my_do_test)  |> is("logical") |> not() )
 		stop("tidybulk says: .do_test column must be logical (i.e., TRUE or FALSE)")
 
 	# Check packages msigdbr

R/methods_SE.R

@@ -2099,7 +2099,7 @@ setMethod("test_gene_enrichment",
 		stop("tidybulk says: the .entrez parameter appears to no be set")
 
 	# Check column type
-	if (.data %>% rowData() %>% as_tibble() %>% distinct(!!.do_test) %>% sapply(class) %in% c("logical") %>% not() %>% any)
+	if (.data %>% rowData() %>% as_tibble(rownames = f_(.data)$name) %>% mutate(my_do_test = !!.do_test) %>% pull(my_do_test) |> is("logical") %>% not())
 		stop("tidybulk says: .do_test column must be logical (i.e., TRUE or FALSE)")
 
 	# Check packages msigdbr