#' 'imageTotalCount'
#'
#' imageTotalCount function indicates total count of each DICOM files in each occurrences
#'
#'
#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' @import dplyr
#' @importFrom magrittr "%>%"
#'
#'
#' @return A dataframe indicating total count of each DICOM files in each occurrences
#' @examples
#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' imageTotalCount(DICOMList)
#' @export
#imageTotalCount
imageTotalCount<-function(DICOMList){
imageTotalCount<-radiologyOccurrenceId(DICOMList) %>% group_by(radiologyOccurrenceId) %>% count(imageTotalCount=n())
imageTotalCount[,c(1:2)]
}