To query tissue-specific genes your need to provide:
The query will generate a CSV file that you can download or directly import into your R code
url = "http://epimed.univ-grenoble-alpes.fr/database/query/genes?annotations=ANNOTATION&taxid=TAXID"
df = read.csv2(url, header=TRUE, sep=";")
Humain testis-specific genes as defined by EpiMed from RNA-seq data
url = "http://epimed.univ-grenoble-alpes.fr/database/query/genes?annotations=epimed_tsg2_restricted_1_testis_adult&taxid=9606"
df = read.csv2(url, header=TRUE, sep=";")