#' 'modalityImage'
#'
#' modalityImage function indicates modality of each image
#'
#'
#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' @import dplyr
#' @importFrom magrittr "%>%"
#'
#'
#' @return A dataframe indicating modality of each image
#' @examples
#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' modalityImage(DICOMList)
#' @export

#modalityImage
modalityImage<-function(DICOMList){
    modalityImage<-lapply(DICOMList, function(x){
        modalityImage<-as.character(x[[1]] %>% filter(name=='Modality') %>% select(value))
        if(modalityImage=="CR" | modalityImage=="DX"){
            modalityImage='XR'
        }
        else if(modalityImage=="character(0)" | modalityImage=="" | modalityImage=="integer(0)"){
            modalityImage='NA'
        }
        return(modalityImage)})
    modalityImage<-as.data.frame(do.call(rbind, modalityImage))
    colnames(modalityImage)<-'modality'
    return(modalityImage)
}