Excel MashFest

README.md

Install Packages

install.packages(c("xlsx", "dplyr", "plyr"))

Combine everything together

xls_files_to_read <- Sys.glob("../TumorSegmentation/*.xlsx")
print(paste(xls_files_to_read, collapse = ", "))

library(xlsx)
library(plyr) # processing tools
library(dplyr)

# read everything in
all_xls_data <- xls_files_to_read %>% 
  llply(function(in_file) read.xlsx(in_file, sheetIndex = 1)) 

big_mashup <- do.call(rbind.fill,all_xls_data) 

big_mashup %>% 
  write.xlsx("big_mashup.xlsx")