#' 'modality'

#'

#' modality function indicates modality of each shoot

#'

#'

#' @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 shoot

#' @examples

#' DICOMList<-DICOMHeaderList(DICOMFolderPath)

#' modality(DICOMList)

#' @export

#modality

modality<-function(DICOMList){

    modality<-lapply(DICOMList, function(x){

        modality<-as.character(x[[1]] %>% filter(name=='Modality') %>% select(value))

        if(modality=="CR" | modality=="DX"){

            modality='XR'

        }

        else if(modality=="character(0)" | modality=="" | modality=="integer(0)"){

            modality='NA'

        }

        return(modality)})

    modality<-as.data.frame(do.call(rbind, modality))

    colnames(modality)<-'modality'

    modality<-cbind(modality, radiologyOccurrenceId(DICOMList))

    modality<-as.data.frame(modality %>% group_by(radiologyOccurrenceId) %>% distinct(modality))

    modality<-split(modality, modality$radiologyOccurrenceId)

    modality<-sapply(modality, function(x){

        paste0(x$modality, collapse=', ')})

    modality<-data.frame(radiologyOccurrenceId=names(modality), modality=modality, row.names = NULL)

    return(modality)

}