NLPath <- reactive({paste0(getwd(), "/", input$startYr, "/", "NL_", substr(input$projTC, nchar(input$projTC)-2, nchar(input$projTC)-1), "_",  input$startYr, ".csv")})
NLData <- reactiveFileReader(100, session, filePath = NLPath(), readFunc = read.csv)
project <- NLData()


years <- data.frame(matrix(as.integer(0), ncol = as.numeric(input$projYr) + 1, nrow = nrow(project)))
for(countYr in 0:input$projYr){
  year = toString(as.numeric(startingYr) + countYr)
  colnames(years)[countYr + 1] = year
}

WORKS <- list()
DATES <- list()

for (work in cycle$Cyclical.Work){
  index = grep(work, names(project))
  df_name = paste("PROJECTED", work)
  WORKS[[df_name]] = cbind(years)

  project[[work]] = format(as.POSIXct(as.Date(paste0(project[[work]], "-01"), "%m/%Y-%d")), "%Y-%m-%d")
  for (count in 1:projTimes){
    dates_df = paste(df_name, count)
    DATES[[dates_df]] = ymd(project[[work]]) + years((cycle[which(cycle$Cyclical.Work == work), 2]))*count
    }
}

    for (each in names(DATES)){
  for (df_name in names(WORKS)){
    if (grepl(df_name, each) == TRUE){
      for (i in 1:nrow(project)){
        if (toString(year(DATES[[each]][i])) %in% names(WORKS[[df_name]])){
          WORKS[[df_name]][[toString(year(DATES[[each]][i]))]][i] = as.integer(1)
        }
      }
    }
  }
}


lapply(1:nrow(cycle), function(j){
output[[paste("table", j)]] <- renderTable(WORKS[[paste("PROJECTED", input$workNav)]], options = list("PageLength" = 15))
})