dicom.to.Rdcm.converter | R Documentation |
The dicom.to.Rdcm.converter
function creates, for each DICOM
object, a *.Rdcm file usefull for using espadon package. Each Rdcm file created is
referenced by the date of acquisition of the object (if it is not available,
its creation date), the patient's PIN, a reference number, an object number
in this reference system, and the object modality (mr, ct, rtstruct...).
dicom.to.Rdcm.converter(
dcm.files,
pat.dest.dir,
update = TRUE,
ignore.duplicates = FALSE,
tag.dictionary = dicom.tag.dictionary(),
verbose = TRUE
)
dcm.files |
String vector, representing the list of the full names of the DICOM files of the same patient, or its directory. |
pat.dest.dir |
Character string representing the full name of the patient's directory, which will contain files converted into Rdcm objects. |
update |
Boolean. If set to |
ignore.duplicates |
Boolean. If |
tag.dictionary |
Dataframe, by default equal to dicom.tag.dictionary, whose structure it must keep. This dataframe is used to parse DICOM files. |
verbose |
Boolean. If |
Returns the list of basenames of the created files.
Returns NULL
if there are no DICOM files in dcm.files
For each DICOM object, dicom.to.Rdcm.converter
creates a *.Rdcm file whose basename is made up of the date of the acquisition
(or creation date if previous not found), the patient's PIN, the pseudonym of
the frame of reference ("ref1", "ref2"...), the number of the volume object
in the directory in this frame of reference ("do1", "do2"...), and the object
modality ("mr", "ct", "rtdose", "rtstruct"...).
For example: BASE = "20160514_a008e9ac_ref2_do1_mr"
# First, save toy.dicom.raw () raw data to a temporary file for testing.
pat.src.dir <- file.path (tempdir(), "PM_dcm")
dir.create (pat.src.dir, recursive = TRUE)
dcm.filename <- tempfile (pattern = "PM_rtplan", tmpdir = pat.src.dir,
fileext = ".dcm")
zz <- file (dcm.filename, "wb")
writeBin (toy.dicom.raw (), zz, size = 1)
close (zz)
# Create a temporary destination directory where the *.Rdcm file will be saved
pat.dest.dir <- file.path (tempdir(), "PM_Rdcm")
dicom.to.Rdcm.converter (pat.src.dir, pat.dest.dir, update = TRUE)
# or
dicom.to.Rdcm.converter (dcm.filename, pat.dest.dir, update = TRUE)
list.files (pat.dest.dir)
# Cleaning temporary directories
unlink (pat.src.dir, recursive = TRUE)
unlink (pat.dest.dir, recursive = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.