#' Search for a single string in award titles and abstract
#' @param string Term to search for
#' @param data Data.frame from GetAllDataFromMultipleYears
#' @return A data.frame with matches.
#' @export
FilterForString <- function(string, data) {
result <- subset(data, grepl(string, paste(data$Award.AwardTitle, data$Award.AbstractNarration), ignore.case=TRUE))
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.