mutateDfList = function(list){

  list$volume = round(list$volume, digits = 2)
  list$value = round(list$value, digits = 2)
  list$month = factor(list$month, levels = c("Dec", "Jan", "Feb", "Mar", "Apr",                                              "May","Jun", "Jul"))
  list %>%
         mutate("date" = str_c(day,
                               month,
                               ifelse(month == "Dec", 2016, 2017),
                               sep = "-")
                ) %>%
         mutate("weekday" = wday(dmy(date), label = TRUE))
  }

 dfList = mutateDfList(dfList)