Espadon is a package simplifying the use and exploitation of DICOM data in radiotherapy. Espadon works in a native way (user friendly):
It is also able to use any DICOM format file, as long as the user knows where to look for the information.In addition to the simplified use of the above-mentioned files, espadon contains many functions that allow the user to rework documents to produce new features that can be integrated into machine learning.
Among other features, espadon is suitable for pseudonymizing DICOM, decoding them, visualizing them and producing dosimetry data in relation to clinical data.
Also see https://espadon.cnrs.fr.
The espadon package acts directly on the DICOM files or the folders containing them, thanks to espadon functions whose names contain the word “dicom”. For example, to load an imaging volume from a CT or MR, simply execute the following instruction:
vol <- load.obj.from.dicom (image_path)image_path represents either the image folder path, or a vector of all the image DICOM file path.
To speed up the loading of data when studying a patient’s images in depth, espadon offers the dicom.to.Rdcm.converter data pre-formatting function. This function creates files that are smaller than the original files, without loss of information, and prepares the data for use by espadon’s analysis and display functions. The new data format is a Rdcm format.
dicom.to.Rdcm.converter("D:/dcm/patient001", "D:/Rdcm/patient001“)The espadon package allows direct analysis of DICOM files. The following instructions, for example, create a table (R dataframe), and thus to have a synthetic view of the DICOM file content.
dcm.filename <- file.choose ()
df <- dicom.parser (dicom.raw.data.loader (dcm.filename), as.txt = TRUE, try.parse = TRUE)A file in .xlsx format can also be created with the xlsx.from.dcm function.
Thanks to the dicom.set.tag.value function, the content of the various tags can be modified or deleted, as far as they are in ascii format.
The dicom.raw.data.anonymizer function provides pseudonymization by shifting dates, changing the patient’s PIN and name, removing all patient data except age, weight, and height, and also removing any other name, phone, operator, service, and undocumented tag content.
Espadon provides a unified view of the different imaging objects, by assigning them a name that takes into account their relationship. The following functions (depending on whether the patient’s directory contains DICOM or .Rdcm files) create these links.
The load.patient.from.dicom and load.patient.from.Rdcm functions (depending on whether the patient’s folder contains DICOM or .Rdcm files) create an R-list, in which all the DICOM objects of the patient are identified. In this patient list, there is, among others, the element T.MAT, computed from the DICOM reg objects. This one provides all the necessary information to overlay two imaging objects acquired on different machines, or at different times. The display.obj.links function allows a nice and convenient display of these links.
library(espadon)
pat.dir <- choose.dir () # patient folder containing mr, ct, rt-struct, rt-dose, rt-plan and reg…
pat <- load.patient.from.dicom (pat.dir)When the patient object list is loaded into memory, the load.obj.data function loads the full object information, i.e. voxels content for MR, CT or PT, rt-dose or contour coordinates for rt-struct.
S <- load.obj.data (pat$rtstruct[[1]])
CT <- load.obj.data (pat$ct[[1]])
MR <- load.obj.data (pat$mr[[1]])
D <- load.obj.data (pat$rtdose[[1]])Visualization of imaging volumes is essential for controlling the loaded DICOM objects. The espadon package allows this display, with the possibility of using the color palettes of your choice.
The display.kplane function displays a slice plane of the imaging volume in the slice plane geometric frame of reference
CT <- load.obj.from.dicom(ct_dicom_file_path)
display.kplane (CT, k =10, col = pal.RVV(1000),
breaks = seq(-1000, 1000, length.out = 1001),
ord.flip = TRUE, interpolate = TRUE)The display.plane function displays transverse, frontal or sagittal views in the patient’s frame of reference. It allows the superposition of images and contours.
The espadon package has several 3D visualization features:
Thanks to the internal management of geometrical frames of reference, the different displays can be mixed, as shown in the example below:
library(espadon)
library(rgl)
pat.dir <- choose.dir () # patient folder containing mr, ct, rt-struct, and reg
pat <- load.patient.from.dicom (pat.dir)
S <- load.obj.data(pat$rtstruct[[1]])
CT <- load.obj.data(pat$ct[[1]])
MR <- load.obj.data(pat$mr[[1]])
bg3d ("black")
par3d (userMatrix = matrix (c(0, 0, -1, 0, -1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1), ncol = 4),
windowRect = c(0, 50, 300, 300), zoom = 0.7)
display.3D.contour (S, roi.sname = "eye", display.ref = CT$ref.pseudo,
T.MAT = pat$T.MAT)
display.3D.stack (MR, k.idx = c(10,35,70, 105, 140,165),
display.ref = CT$ref.pseudo,
T.MAT = pat$T.MAT,
ktext = FALSE)
display.3D.sections (CT, cross.pt = c(0, 150, 0),
col = pal.RVV (200, alpha = c(rep (0, 90), rep (1, 110))),
breaks = seq(-1000, 1000, length.out = 201),
border.col = "#844A39")
play3d (spin3d (rpm = 4), duration = 15)Several espadon functions have been created to transform imaging volumes.
nesting.MR <- nesting.roi (MR, S, roi.sname = "brain", T.MAT = pat$T.MAT,
vol.restrict = TRUE, mar)
display.3D.stack (nesting.MR, ktext = FALSE, line.lw d= 2)
display.3D.contour (S, roi.sname = "brain", display.ref = MR$ref.pseudo,
T.MAT = pat$T.MAT)MR.on.CT <- vol.regrid (MR, CT, T.MAT=pat$T.MAT, interpolate = TRUE)
display.3D.stack (MR.on.CT, display.ref = CT$ref.pseudo , T.MAT = pat$T.MAT,
ktext = FALSE, line.lwd = 2, line.col = "#844A39")# Points determination : centers of the eyes and the chiasm found in rtstruct data
roi.idx <- select.names (S$roi.info$roi.pseudo, roi.name c("eye", "chiasm"))
pt <- S$roi.info[roi.idx, c("Gx", "Gy", "Gz")]
origin.pt <- as.numeric (apply (pt, 2, mean))
# Plane creation in the CT frame of reference
new.plane <- get.plane (CT, origin = origin.pt,
plane.orientation = orientation.create (pt),
interpolate = TRUE)
# Display of the new plane, in the cut plane frame of reference
tmat <- ref.cutplane.add (new.plane, origin.pt = origin.pt,
ref.cutplane = "ref.plane", T.MAT = pat$T.MAT)
plan <- vol.in.new.ref (new.plane, "ref.plane", tmat)
display.plane (plan, struct= S, roi.idx = idx, T.MAT = tmat,
view.coord = plan$patient.xyz0[3],
bottom.col = pal.RVV(200),
bottom.breaks = seq(-1000, 1000, length.out = 201),
main = "cut plane", bg = "#379DA2", sat.transp = T,
legend.plot = FALSE, interpolate = TRUE)Binary objects are volumes whose voxel values are either TRUE, FALSE or NA (i.e. undetermined). They act as a mask, and are used to select only the desired part of a volume. The example below show how to select the brain voxels described in the rtstruct object.
nesting.MR <- nesting.roi (MR, S, roi.sname = "brain", T.MAT = pat$T.MAT,
vol.restrict = TRUE,
xyz.margin = c(20, 20, 20)) # to reduce the computation time
bin.brain <- bin.from.roi (nesting.MR, struct = S, roi.sname = "brain",
T.MAT = pat$T.MAT)
MR. brain <- vol.from.bin (nesting.MR, bin.brain)The bin.from.vol function creates binary volumes by selecting voxels that are inside or outside an interval [min, max]. The example below selects voxels with a value greater than 150.*
bin.min.150 <- bin.from.vol (MR.brain, min = 150)
display.plane (bin.min.150, view.coord = 0, view.type = "sagi",
main = "bin.min.150", bg = "#379DA2", legend.plot = FALSE,
sat.transp = TRUE, interpolate = TRUE)Other image processing functions are available:
These functions can be used to separate multiple volumes in the binary selection, as shown below:
bin.smooth <- bin.opening (bin.min.150, radius = 1.5))
bin.cluster <- bin.clustering (bin.smooth)
# Creation of ventricle contours
bin.ventricle <- bin.from.vol (bin.cluster, min = 1, max = 1)
S.ventricle <- struct.from.bin (bin.ventricle , roi.name = "ventricle",
roi.color = "#FF0000" )
# Display of the first 3 largest sub-volumes, and ventricle contours
library (rgl)
bg3d ("black")
par3d (userMatrix = matrix (c(0, 0, -1, 0, -1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1),
ncol = 4),
windowRect = c(0, 50, 300, 300), zoom = 0.7)
display.3D.stack(bin.cluster, k.idx = bin.cluster$k.idx,
col = c ("#00000000", rainbow (3, alpha = 1)),
breaks = seq (0, 3, length.out = 5), border = FALSE,
ktext = FALSE)
play3d (spin3d (rpm = 4), duration = 15)
bg3d ("black")
par3d (userMatrix = matrix (c(0, 0, -1, 0, -1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1),
ncol = 4),
windowRect = c(0, 50, 300, 300), zoom = 1)
display.3D.contour (S.ventricle)
play3d (spin3d (rpm = 4), duration = 15)The espadon package has the mesh.from.bin function to create a triangle mesh from a binary volume and the display.3D.mesh function to display it in any frame of reference.
In the example below, the patient folder contains a CT-scan files and a DICOM rtstruct file in which lung and heart are outlined :
library (espadon)
patient.folder <- choose.dir ()
pat <- load.patient.from.dicom (patient.folder, data = TRUE)
bin.lung <- bin.sum (bin.from.roi (pat$ct[[1]], struct = pat$rtstruct[[1]],
roi.name = "lungl"),
bin.from.roi (pat$ct[[1]], struct = pat$rtstruct[[1]],
roi.name = "lungr"))
bin.heart <- bin.from.roi (pat$ct[[1]], struct = pat$rtstruct[[1]],
roi.name = "heart")
mesh.lung <- mesh.from.bin (bin.lung)
mesh.heart <- mesh.from.bin (bin.heart)
display.3D.mesh (mesh.lung, color = "burlywood2", specular = "black",
alpha = 0.8)
display.3D.mesh (mesh.heart, color = "red", specular = "black",
alpha = 1)Sometimes, the mesh contains holes. The mesh.repair function can be used to repair the mesh by removing the degenerated triangles.
Histograms computing is a basic function proposed by R. The espadon package adds the feature to compute these differential histograms over an imaging volume such as CT, MR, PT, rt-dose, and within a predefined area:
To be able to simulate random shifts of the selection, or variations of contours, the histo.from.roi function includes Monte Carlo calculations, according to a normal distribution. If the imaging volume is a dose distribution (from an rtdose file), it is then easy to calculate a cumulative histogram, called in this case dose-volume histograms or DVH, using the histo.DVH function.
The functions display.dV_dx, display.DVH, display.DVH.pc allow to display pretty graphs, including the quantile zones 100%, 95% and 50% of the Monte-Carlo data.
In the following example, the patient folder contains a CT-scan files, a rt-dose file and a rt-struct file in which optic chiasm is outlined :
library (espadon)
patient.folder <- choose.dir ()
pat <- load.patient.from.dicom (patient.folder, data = FALSE)
S <- load.obj.data (pat$rtstruct[[1]])
CT <- load.obj.data (pat$ct[[1]])
D <- load.obj.data (pat$rtdose[[1]])
# resample D on the cut planes on which the chiasm has been outlined
D.on.CT <- vol.regrid (D, CT)
# Calculation of histogram with simulation of random displacements according to
# a normal distribution of standard deviation 1 mm in all directions:
h <- histo.from.roi (D.on.CT, S, roi.name="chiasm", breaks = seq(0, 80, 0.1),
alias = "chiasm", MC = 100 )
DVH <- histo.DVH (h, alias = "Chiasm DVH")
display.DVH (DVH, MC.plot = TRUE, col = "#ff0000", lwd = 2)The espadon package offers the possibility of computing many radiotherapy indices. After specifying the target volumes to be treated (if available), the healthy volumes to be protected (if available), the dose distribution from rt-dose file, the functions rt.indices.from.roi and rt.indices.from.bin can calculate, on demand :
In the following example, the patient folder contains a CT-scan files, a rt-dose file and a rt-struct file in which PTV and optic chiasm are outlined.
library (espadon)
patient.folder <- choose.dir ()
pat <- load.patient.from.dicom (patient.folder, data = FALSE)
S <- load.obj.data (pat$rtstruct[[1]])
CT <- load.obj.data (pat$ct[[1]])
D <- load.obj.data (pat$rtdose[[1]])
# resample D on the cut planes on which the chiasm has been outlined
D.on.CT <- vol.regrid (D, CT)
rt.indices.from.roi (D.on.CT, S, target.roi.name = "ptv",
healthy.roi.name = "chiasm",
presc.dose = 0.9 * 70)