get_full_text <- function(x){ start <- grep('Full [Tt]ext:', x) end <- grep(':', x) end <- end[which(end > start)[1]] - 1 x[start:end] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.