--- a
+++ b/RadETL/R/device_OccurrenceTable.R
@@ -0,0 +1,35 @@
+#' '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)
+}