R/draw_a_name.R

In priscilleb/pack2: Test

#' Draw the evolution of the number of occurence of a given name
#'
#' @param a_name the name you want to observe
#' @import tidyr dplyr ggplot2 prenoms assertthat
#' @return a graph
#' @export
#'
#' @examples
#' \dontrun{
#' draw_a_name("Priscille")
#' }
#'
#'

draw_a_name <- function(a_name){
  assert_that(is.character(a_name))
  data("prenoms")
  prenoms %>% filter(name==a_name) %>%
    group_by(year) %>%
    summarize(count=n()) %>%
    ggplot(aes(x=year, y=count))+ geom_line()
}