suppressPackageStartupMessages({
library("plotlyutils")
library("plotly")
})
set.seed(42)
df <- lapply(1:26, function(x) rnorm(50)) %>%
as.data.frame()
colnames(df) <- letters
df[["seq"]] <- 1:50
df %>% dropdown_lineplot(x="seq", yvars = letters)