How to add rangeselector in plotly for a numeric variable in R?

Question

I have data.frame like below:

df <- data.frame(
  class = c(rep("1st", times = 60), rep("2nd", time = 30)),
  week = c(rep(1:20, times = 3)