Possible bug with dateRangeInput when plotting sankeyNetworks from networkD3 package

[leungi]

Bringing up the issue by @nkk36 from #1959.

Issues:

• date range input select box won't pop up; though manually typing values in min/max range does work (i.e., server reads it)

• found a workaround from SO (https://stackoverflow.com/questions/44132864/part-of-daterangeinput-ui-gets-hidden-under-the-shiny-dashboard-header), but solution is unstable; work/fail at different sessions.
  tags$div(tags$style(HTML(".dropdown-menu{z-index:20000 !important;}")))

• as per @jcheng5 original request in Possible bug with dateRangeInput when plotting sankeyNetworks from networkD3 package #1959, JS console shows no error when this happen

reprex from original post.

# Setup =================================
# Load Packages
library(networkD3)
library(shiny)
library(shinydashboard)


# UI =================================
ui = dashboardPage(
  dashboardHeader(title = "Title"),
  # UI Sidebar =================================
  dashboardSidebar(
    sidebarMenu(
      dateRangeInput(inputId = "dates",
                     label = "Select time period:",
                     start = "2000-01-01",
                     end = "2018-02-01",
                     min = "2000-01-01",
                     max = "2018-02-01",
                     format = "mm-yyyy")
    )
  ),
  # UI Body =================================
  dashboardBody(
    fluidRow(
      box(sankeyNetworkOutput(outputId = "sankey_diagram"), 
          width = 12)
            )
    )
)

# Server =================================
server = function(input, output, session){
  # Render sankey diagram =================================
  output$sankey_diagram = renderSankeyNetwork({
    
    
    t1 = data.frame(source = c(0,0,
                              1,1),
                   target = c(2,3,
                              2,3),
                   value = c(100, 25,
                             10, 20))
    
    t2 = data.frame(id = c(0,1,2,3),
                      name = c("Group 1", "Group 2", 
                               "Group 3", "Group 4"))
    
    s = sankeyNetwork(Links = t1,
                      Nodes = t2,
                      Source = "source",
                      Target = "target",
                      Value = "value",
                      NodeID = "name",
                      NodeGroup = "name",
                      fontSize = 12,
                      nodeWidth = 30,
                      iterations = 0,
                      colourScale = JS("d3.scaleOrdinal(d3.schemeCategory10);"))
    return(s)
    
  }) 
}
# Run Shiny App =================================
shinyApp(ui, server)

[leungi]

Thanks @alandipert and the Shiny team! 👍