% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/DicomRDS.R
\docType{data}
\name{DicomRDS}
\alias{DicomRDS}
\title{DicomRDS Class}
\format{An object of class \code{R6ClassGenerator} of length 24.}
\usage{
DicomRDS
}
\arguments{
\item{data}{Data frame imported from DICOM RDS file}
}
\description{
This class is a class that imports various metadata by reading an RDS file containing DICOM information.
There are basically functions that import data related to Radiology CDM.
}
\examples{
############################# Example Code: Read DICOM RDS File   ###################################

rdsFile <- list.files(path = "~/Radiology/rds_test", pattern = "\\\\.rds$", full.names = T, recursive = T)

# If single data (only one metadata in dicom file )
dcmRDS <- DicomRDS$new(data[[1]])

# Create Occurrence ID for radiology image
roID <- dcmRDS$createOccurrenceID()

# Get PatientID
patientid <- dcmRDS$getPatientID()
dcmRDS$getDirectoryID()

# This radiology contast or non-contrast
isContrast <- dcmRDS$isPost4BrainCT()

# If Multi data
data <- readRDS(file = rdsFile[5])
for(i in 1:length(data)) {
  dcmRDS <- DicomRDS$new(data[[i]])
  roID <- dcmRDS$createOccurrenceID()
  patientid <- dcmRDS$getDirectoryID()
  isContrast <- dcmRDS$isPost4BrainCT()
  df <- data.frame(roID, patientid, isContrast)
}
df

######################################## Example Code: END ##########################################
}
\seealso{
https://github.com/OHDSI/Radiology-CDM/wiki
}
\author{
Neon K.I.D
}
\keyword{datasets}