--- a
+++ b/RadETL/R/imageId_ImageTable.R
@@ -0,0 +1,30 @@
+#' 'imageId'
+#'
+#' imageId function will read SOPInstanceUID metadata of all DICOM files read by DICOMHeaderList function
+#'
+#'
+#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
+#' @import digest
+#' @import dplyr
+#' @importFrom magrittr "%>%"
+#'
+#'
+#' @return A list containing anonymized SOPInstanceUID of DICOM
+#' @examples
+#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
+#' imageId(DICOMList)
+#' @export
+
+
+imageId<-function(DICOMList){
+    imageId<-lapply(DICOMList, function(x){
+        imageId<-as.character(x[[1]] %>% dplyr::filter(name=='SOPInstanceUID') %>% dplyr::select(value))
+        if(imageId=="character(0)" | imageId=="" | imageId=="integer(0)"){
+            imageId='NA'
+        }
+        return(imageId)
+    })
+    imageId<-as.data.frame(do.call(rbind, imageId))
+    colnames(imageId)<-'imageId'
+    return(imageId)
+}