R/get_prize_winners_by_keyword.R

In s-andrews/nobelR: Query Nobel Prize Winners

#' Find winning years by keyword
#'
#' @param keyword Single word or phrase to search in the award rationales
#'
#' @return A vector of years which mention the keyword
#' @export
#'
#' @examples
#' get_prize_years_by_keyword("therapy")
get_prize_years_by_keyword <- function(keyword) {

  NULL -> Rationale -> Year

  assertthat::assert_that(assertthat::is.string(keyword))

  rationales %>%
    dplyr::filter(stringr::str_detect(base::toupper(Rationale), base::toupper(keyword))) %>%
    dplyr::pull(Year) %>%
    return()

}