Error in get.assay() function

[rajarshi]

(Taken from CDK-R/cdkr#26 submitted by @sawsimeon)

The following code fails to retrieve assay data, likely due to change in Pubchem PUG XML response

library(rpubchem)
library(rcdk)
library(ggplot2)
aids <- find.assay.id("dihydroorotate+dehyogenase+and+Malaria")
aidsdata <- data.frame()
for (i in 1:50){
  assay <- get.assay(aids[i], quiet=TRUE)
  assaydata <- assay[,c("PUBCHEM.CID", "PUBCHEM.ACTIVITY.OUTCOME")]
  data <- rbind(data, assaydata)
}