With RCDK is very easy to get a good number of descriptors with few rows of code:
library(rcdk)
dn <- get.desc.names(dc[1])
mol <- parse.smiles("c1ccccc1")
descNames <- unique(unlist(sapply(get.desc.categories(), get.desc.names)))
descs <- eval.desc(mol, descNames)
Nice!, 288 descriptors (but 65 of them are "NA").