#' 'radiologyImageTable'
#'
#' radiologyImageTable function shows you radiologyImageTable in a dataframe format
#'
#'
#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
#'
#'
#' @return radiologyImageTable in a dataframe format
#' @examples
#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' radiologyImageTable(DICOMList)
#' @export
#'

radiologyImageTable<-function(DICOMList){
    radiologyImageTable<-cbind(imageId(DICOMList), radiologyOccurrenceId(DICOMList), personId(DICOMList), imageOrientationConceptId(DICOMList), imageType(DICOMList), radiologyPhaseConceptId(DICOMList), imageResolutionRows(DICOMList), imageResolutionColumns(DICOMList), imageSliceThickness(DICOMList), dicomPath(DICOMList))
    radiologyImageTable<-merge(radiologyImageTable, imageNo(DICOMList), by='imageId', all=T)
    return(radiologyImageTable)}