find_id <- function(player){
Names <- unlist(str_split(player, " "))
filter(People, nameFirst == Names[1],
nameLast == Names[2])$retroID
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.