First tab

Load packages

# devtools::install_github("thinkr-open/prenoms")
library(prenoms)
library(dplyr)
library(tidyr)
library(dygraphs)
library(stringr)

Define a function

draw_names_dygraph <- function(names, height_dy = 3, height_RangeSelector = 20){

prenoms %>% 
  group_by(year,name) %>% 
  summarise(total = sum(n))    %>% 
  filter(name %in% names) %>% 
  spread(key = name,value =total) %>% 
  dygraph(height = height_dy) %>% 
    dyRangeSelector(height =height_RangeSelector)
}

Second tab

Draw a dynamic graph…

… with parameters

draw_names_dygraph(names = str_split(params$name, "," ) [[1]], height_dy = NULL)

…