#' To plot the popularity of names in times
#'
#' @param Name name from input
#' @param Sex sex from input
#' @import prenoms assertthat dygraphs dplyr
#' @return the plot
#' @export
#' @examples
#' draw_a_name("Vincent","M")
#'
draw_a_name <- function(Name,Sex){
assert_that(is.character(Name))
assert_that(Sex == "F" | Sex == "M")
prenoms::prenoms %>%
filter(name == Name, sex == Sex) %>%
group_by(year) %>%
summarize(total=sum(n)) %>%
dygraph()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.