search the geneset in the tables and return it
getSearchData(dat = NULL, input = NULL)
dat,
table data
input,
input params
data
x <- getSearchData()