#' 'DicomPath'
#'
#' DicomPath function indicates path of each DICOM files
#'
#'
#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' @import dplyr
#' @importFrom magrittr "%>%"
#'
#'
#' @return A list indicating path of each DICOM files
#' @examples
#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' lapply(DICOMList)
#' @export

dicomPath<-function(DICOMList){
    dicomPath<-lapply(DICOMList, function(x){
        dicomPath<-names(x)
        if(is.null(dicomPath)==T){
            return('NA')
        }
        return(dicomPath)
    })
    dicomPath<-as.data.frame(do.call(rbind, dicomPath))
    colnames(dicomPath)<-'dicomPath'
    return(dicomPath)
}