codeDrugHelperFunction/main.R

In fcarazo/drughelper: Drug Identification and Drug Name Correction with Automatic Updates

#########################################################################################
# MAIN SCRIPT
# Code Author: Marian Gimeno -- mgimenoc@tecnun.es
# Conceptual Design: Fernando Carazo -- fcarazo@tecnun.es
# Data Developer: Carlos Castilla -- ccastilla.1@tecnun.es
#########################################################################################
load("./singleDrugSynonymsTabulatesDH_IDcreated.RData")
source("./codeDrugHelperFunction/DrugHelper.R")
source("./codeDrugHelperFunction/getCHEMBLID.R")
source("./codeDrugHelperFunction/getDrugBankID.R")


DrugName<-"NEOMYCIN SULFATE"
DrugName<-"DB07604"

Chem<-getCHEMBLID(DrugName)

DB<-getDrugBankID(Chem[1])

data.frame<-singleDrugSynonyms$Drug[1:110]

type<-"ALL" #("DB", "CHEMBL", "DH", "ALL")

data.frame<-singleDrugSynonyms$Drug[1:110]

type<-"ALL" #("DB", "CHEMBL", "DH", "ALL")


Result<-DrugHelper(data.frame, type)