#' 'radiologyDirpath'
#'
#' radiologyDirpath function indicates path which includes a single occurrence
#'
#'
#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' @import dplyr
#' @importFrom magrittr "%>%"
#'
#'
#' @return A dataframe indicating path which includes a single occurrence
#' @examples
#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' radiologyDirpath(DICOMList)
#' @export

#radiologyDirpath
radiologyDirpath<-function(DICOMList){
    radiologyDirpath<-cbind(dicomPath(DICOMList), radiologyOccurrenceId(DICOMList))
    radiologyDirpath<-split(radiologyDirpath, radiologyDirpath$radiologyOccurrenceId)
    radiologyDirpath<-sapply(radiologyDirpath, function(x){
        Radiology_Dirpath<-strsplit(as.character(x$dicomPath), '/')
        Radiology_Dirpath<-Reduce(intersect, Radiology_Dirpath)
        if(grepl(Radiology_Dirpath[length(Radiology_Dirpath)], '.dcm')==T){
            Radiology_Dirpath<-Radiology_Dirpath[-length(Radiology_Dirpath)]
        }
        Radiology_Dirpath<-paste(Radiology_Dirpath, collapse='/')
        return(Radiology_Dirpath)
    })
    return(data.frame('radiologyOccurrenceId'=names(radiologyDirpath), 'radiologyDirpath'=radiologyDirpath, row.names = NULL))
}