ghr <- list(
n = c("Ap",
"A",
"E",
"Bt",
"2Btx",
"Btg",
"2Bt",
"2C"),
p = c("Ap|AP",
"^A$|A1|A2",
"^E$|^A2|^B1$",
"^Bt$|^Bt1|^Bt2|BT1|BT2|B21T|B22T",
"Btx|BTX|BX",
"Bg",
"2Bt$|2Bt1|2Bt2|2Bt3|2B't|B'T",
"^C|2C|3C")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.