drugAnnot <- as(featureData(getAct(rcellminerData::drugData)), "data.frame")
plotStructures("94600", drugAnnot["94600","SMILES"])
plotStructures(c("609699", "94600"), drugAnnot[c("609699", "94600"),"SMILES"],
mainLabel=c("609699", "94600"))
Run the code above in your browser using DataLab