Spreadsheet summaries to CSV and Shiny

summary_csv.R

library(readxl)
library(lubridate)
all <- NULL
for (fle in Filter(function(fle) grep("details_.+", fle), dir(pattern="*.xlsx"))) {
  one <- as.data.frame(read_xlsx(fle, sheet="Summary", range="A2:D6", col_names=FALSE))
  colnames(one) <- c("Milestone", "Effort", "Due", "Stage")
  one$Project <- sub("details_(.+)\\.xlsx", "\\1", fle)
  all <- (if (!is.null(all)) rbind(all, one) else one)
}
all <- all[(!is.na(all$Milestone)),]
all$Due_month <- format(all$Due, '%Y-%m')
agg <- aggregate(Effort~Due_month, all, FUN=sum)
write.csv(all, file="all.csv")
write.csv(agg, file="agg.csv")

summary_shiny.R

library(readxl)
library(lubridate)
library(shiny)
all <- NULL
for (fle in Filter(function(fle) grep("details_.+", fle), dir(pattern="*.xlsx"))) {
  one <- as.data.frame(read_xlsx(fle, sheet="Summary", range="A2:D6", col_names=FALSE))
  colnames(one) <- c("Milestone", "Effort", "Due", "Stage")
  one$Project <- sub("details_(.+)\\.xlsx", "\\1", fle)
  all <- (if (!is.null(all)) rbind(all, one) else one)
}
all <- all[(!is.na(all$Milestone)),]
all$Due_month <- format(all$Due, '%Y-%m')
agg <- aggregate(Effort~Due_month, all, FUN=sum)
shinyApp(ui = splitLayout(
    tableOutput("tab"), 
    plotOutput("plt"), cellWidths=c('30%', '70%')
  ), server=function(input, output){
    output$tab <- renderTable(agg)
    output$plt <- renderPlot(barplot(agg$Effort, names.arg=agg$Due_month))
 }
)