rangeslider doesn't render with correct axis range

[cpsievert]

This plot renders with the rangeslider way out of focus

library(babynames)
library(dplyr)
library(plotly)
nms <- filter(babynames, name %in% c("Sam", "Alex"))
p <- ggplot(nms) + 
  geom_line(aes(year, prop, color = sex, linetype = name))
  
ggplotly(p) %>%
  rangeslider()