dygraph(a4) %>% 
  dyRangeSelector()