# check the result list value
#Testdf <- data.table("RxCui" = numeric(), "Name" = numeric(), "MinConcept.Id" = numeric(), "MinConcept.Name"= numeric())
#i <- 1
#while(is.null(Esophagitis_List$RxCui[i]) == FALSE){
# Testdf <- rbind(c(Esophagitis_List$RxCui[i],Esophagitis_List$Name[i],Esophagitis_List$MinConcept.Id[i],Esophagitis_List$MinConcept.Name[i]))
# i <- i+1
#}
#Testdf
#Esophagitis_List <- getRxcuiViaMaytreat("esophagitis")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.