x <- dicomInfo(system.file("dcm/Abdo.dcm", package="oro.dicom"))
seriesDescription <- extractHeader(x$hdr, "SeriesDescription", numeric=FALSE)
print(seriesDescription)
IOP <- extractHeader(x$hdr, "ImageOrientationPatient", numeric=FALSE)
print(IOP)Run the code above in your browser using DataLab