#' 'device'
#'
#' device function indicates manufacturer of device which took a 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 manufacturer of device which took a shoot
#' @examples
#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
#' device(DICOMList)
#' @export

#device
device<-function(DICOMList){
    device<-lapply(DICOMList, function(x){
        device<-as.character(x[[1]] %>% filter(name=='Manufacturer') %>% select(value))
        if(device=="character(0)" | device=="" |device=="integer(0)"){
            device='NA'
        }
        return(device)
    })
    device<-as.data.frame(do.call(rbind, device))
    colnames(device)<-'device'
    device<-cbind(device, radiologyOccurrenceId(DICOMList))
    device<-as.data.frame(device %>% group_by(radiologyOccurrenceId) %>% distinct(device))
    device<-split(device, device$radiologyOccurrenceId)
    device<-sapply(device, function(x){
        paste0(x$device, collapse=', ')})
    device<-data.frame(radiologyOccurrenceId=names(device), manufacturer=device, row.names = NULL)
    return(device)
}