#' Function to Count the words in a string of text
#'
#' @param x string of text to count
#' @export
#'
#'
wordCount <- function(x){
length(strsplit(x, ' ')[[1]])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.