tests/testthat/test1.R

In DHLab-CGU/pharm: pharm

# 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")