--- a
+++ b/RadETL/R/radiologyImageTable.R
@@ -0,0 +1,19 @@
+#' '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)}