CDISC tools for R?

Has anyone hacked up tools for reading/writing CDISC applications
(ADaM, SEND,  SDTM, ODM) files or using/verifying vocabulary with R? 
(i.e. via the XML, ontoTools, and similar packages)?

(I'd be interested in hearing privately from any consultants/vendors
who have been working on this as well; S-PLUS would be a
related/relevant target).

best,
-tony

"Commit early,commit often, and commit in a repository from which we can easily
roll-back your mistakes" (AJR, 4Jan05).

A.J. Rossini
blindglobe at gmail.com