library(HGNChelper)
data(hgnc.table)
hgnc.symbols <- as.character(na.omit(unique(hgnc.table[ ,2])))
if( !identical(all.equal(hgnc.symbols, rToSymbol(make.names(symbolToR(hgnc.symbols)))), TRUE))
stop("HGNC mapping was not reversible.")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.