#' '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)

}