a <- enrichment()
c <- enrichment()
is.enrichment(list()) # FALSE
is.enrichment(1) # FALSE
is.enrichment(a) # TRUE
is.enrichment(c(a, c)) # TRUE TRUE
is.enrichment(list(a, b = "char")) # TRUE FALSE
is.enrichment(c(a, b = list(12, c))) # TRUE FALSE TRUE
Run the code above in your browser using DataLab