Potential conflict with dygraphs, moment.js

[AdamElderfield]

I am experiencing strange behaviour when launching a shiny application which has two dyGraphs. The data displayed on the legend does not appear on mouse hover over. My limited JS understanding is that there is a conflict between rhandsontable and dygrpahs with the moment JS library.

I believe this is happening only when I use quarterly data in a time object (XTS, TS) - this doesn't happen with yearly or monthly.

Is there anything I can do to resolve this?

A reproduceable example is below:

library(shiny) library(rhandsontable) library(dygraphs) library(DT)

# ui <- fluidPage(

# Application title
titlePanel("Handsontable/Dygraphs issue"),

    mainPanel(
    # Quarterly data, issue
      dygraphOutput("dygraph_q"),
      rHandsontableOutput("table_q"),

      # Works
      dygraphOutput("dygraph_y"),
      rHandsontableOutput("table_y")

)

)

server <- function(input, output) {

#####
# Quarterly data issue!
#####

output$dygraph_q <- renderDygraph({

    dat <- data.frame(x=(seq.Date(ymd("2020-02-01"),length.out = 100, by = "quarter")),

                      y= 1:100) 

    dat <- xts(dat$y,order.by = dat$x)

 dygraph(dat)

})

output$table_q <- renderRHandsontable( {        dat <- data.frame(x=seq.Date(ymd("2020-02-01"),length.out = 100, by = "quarter"),
                                                                 y= 1:100)

rhandsontable(dat, width = 200, height = 200)

                                             })
#####
# Yearly data fine!
#####

output$dygraph_y <- renderDygraph({

    dat <- data.frame(x=(seq.Date(ymd("2020-02-01"),length.out = 100, by = "year")),

                      y= 1:100) 

    dat <- xts(dat$y,order.by = dat$x)

    dygraph(dat)

})

output$table_y <- renderRHandsontable( {        dat <- data.frame(x=seq.Date(ymd("2020-02-01"),length.out = 100, by = "year"),
                                                                 y= 1:100)

rhandsontable(dat, width = 200, height = 200)

})

}

Run the application

shinyApp(ui = ui, server = server)