# create script
ReactomePathwaysRelation <- read.table("data-raw/ReactomePathwaysRelation.txt", sep="\t", header=F, quote="\"", stringsAsFactors = F, check.names = F)
colnames(df) <- c("parent", "child")
usethis::use_data(ReactomePathwaysRelation)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.