Read Dicom Headers in KNIME

R Snippet for reading dicom headers

library(tidyverse)
library(oro.dicom)
knime.in$Location %>% 
	plyr::ldply(function(in_path) {
		readDICOMFile(as.character(in_path), pixelData = F)$hdr %>%
		group_by(name) %>% summarize_all(funs(first)) %>% # remove duplicate names
		select(name, value) %>% spread(name, value) %>% # reformat as a table
		head(1)
	}
	) -> all_header

cbind(knime.in, all_header) -> knime.out
# knime complains about duplicate columns
names(knime.out)<-make.unique(names(knime.out))