RobinReborn

library(shiny)
library(dplyr)
library(ggplot2)

formatData = function(indexTable){
  indexTable$Date = as.Date(indexTable$Date,"%Y-%m-%d")
  #we add the day of the week as a number to make sorting easier
  #perhaps we can reformulate later
  indexTable$Daily = strftime(indexTable$Date, '%w---%A')
  indexTable$Monthly = strftime(indexTable$Date, '%m')