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