Sidebar collapse to menu button which does not respond #172

Steps to reproduce

1. Open a shiny.fluent dashboard with a sidebar.
2. Decrease the size of your screen, e.g. typical mobile phone sizes

Below you can find a part of our code:

`navigation <- Nav(

IconButton.shinyInput("menu"),

groups = list(
list(links = list(
list(name = 'Start', url = '#!/', key = 'home'),
list(name = 'Browse Topics', url = '#!/browse-topics', key = 'browse'),
list(name = 'Popular by Year', url = '#!/popular', key = 'popular'),
list(name = 'Hot/Cold', url = '#!/hot-cold', key = 'hot-cold'),
list(name = 'Topic Evolution', url = '#!/topic-evolution', key = 'topic-evolution'),
list(name = 'Methods', url = '#!/methods', key = 'methods')
))
),
initialSelectedKey = 'home',
styles = list(
linkText = list(
fontWeight = 600,
fontSize = 15,
color = "white",
":hover" = list(
color = "black"
)
),
root = list(
height = '100%',
width = "100%",
boxSizing = 'border-box',
overflowY = 'auto',
overflowX = "hidden"
# transition = 'width 0.3s ease-in-out',
# selectors = list(
# ":hover" = list(
# width = "100%"
# )
# )
)
)
)

menu = IconButton.shinyInput(
"menu",
iconProps = list(
iconName = "CollapseMenu",
styles = list(
root = list(
color = "#241b3e",
fontWeight = 600
)
)
)
)`

Bug description

I'm currently trying to make our R-Shiny App more mobile-phone friendly. One of the main problems is that the sidebar collapses on mobile phones but the resulting button does not respond. As far as I have looked it up, this might be a bug of the shiny.fluent package. Does anyone of you know a simple solution to this issue?

Expected behavior

The size of the sidebar should just decrease instead of collapsing or alternatively the resulting menu button should respond.

Comments

shiny.fluent app with sidebar:

shiny.fluent app without sidebar (with not responding button):