# creation of the toy.dicom.raw () addresses dataframe:
df <- dicom.browser (toy.dicom.raw ())
# search for modality of toy.dicom.raw ()
idx <- grep ("^[(]0008,0060[)]$", df$tag)
modality <- dicom.tag.parser (df$start[idx], df$stop[idx], df$VR[idx],
df$endian[idx], toy.dicom.raw ())
modality
Run the code above in your browser using DataLab