## SDF/SDFset instances
data(sdfsample)
sdfset <- sdfsample
sdf <- sdfset[[1]]
## Extract IDs from header block
sdfid(sdf, tag=1)
sdfid(sdfset[1:4])
## Extract compound IDs from ID slot in SDFset container
cid(sdfset[1:4])
## Assigning compound IDs and keeping them unique
unique_ids <- makeUnique(sdfid(sdfset))
cid(sdfset) <- unique_ids
cid(sdfset[1:4])
Run the code above in your browser using DataLab