Seasonal Dygraph Question

dygraphs

library("dygraphs")
library("lubridate")
library("xts")

months <- data.frame(month = 1:12, year_1 = 401:412, year _2 = 501:512)
test$month<- paste("2000-", test$month, "-01")
test$month<- ymd(test$month)
dygraph(xts(test[, 2:3], test$month ))

library("dygraphs")
library("lubridate")
library("xts")

test <- data.frame(month = 1:12, year_1 = 401:412, year_2 = 501:512)
test$month<- paste("2000-", test$month, "-01")
test$month<- ymd(test$month)
dygraph(xts(test[, 2:3], test$month )) %>%
  dyAxis(
    "x"
    ,axisLabelFormatter = htmlwidgets::JS(
      'function(d){
        var d = new Date(d);
              return d.strftime("%b")
      }'
    )
    ,valueFormatter = htmlwidgets::JS(
      'function(d){
        debugger;
        var d = new Date(d);
              return d.strftime("%b")
      }'
    )
  )