R/draw_names.R

In megahf/megahhomework: Package containing function utility functions

#' draw_names
#'
#' Draw graph for multiple names on the prenoms data
#' @param names Names to be graphed in vector form
#' @return graph for queried names
#' @import assertthat
#' @import dplyr
#' @import tidyr
#' @import dygraphs
#' @import prenoms
#' @examples
#' draw_names(c("Dana", "Maria"))
#' @export

draw_names <- function(names) {
  assert_that(is.vector(names))

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