#@internal
.find_text <- function(text, pd=get('pd', parent.frame())){
stopifnot(length(text)==1L)
pd[pd$text == text, 'id']
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.