tab <- read.delim('http://compbio.charite.de/jenkins/job/hpo.annotations/lastSuccessfulBuild/artifact/util/annotation/genes_to_phenotype.txt', skip = 1)
cols = unlist(strsplit("entrez-gene-id<tab>entrez-gene-symbol<tab>HPO-Term-Name<tab>HPO-Term-ID<tab>Frequency-Raw<tab>Frequency-HPO<tab>Additional Info from G-D source<tab>G-D source<tab>disease-ID for link", "<tab>"))
colnames(tab) <- cols
tab[tab$`HPO-Term-ID` == 'Autosomal recessive inheritance',]
genes = unique(tab[tab$`HPO-Term-ID` == 'Autosomal recessive inheritance',]$`entrez-gene-symbol`)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.