#' A letter counting function
#'
#' This function counts letters
#' @param which string would you like to count the letters of
#' @keywords string count
#' @export
#' @examples
#' char.num()
char.num <- function(input_char_str) {
split_nums = strsplit(input_char_str, "")
char_str = as.data.frame(do.call(cbind, split_nums))
char_str_2 = cbind(num = 1:nrow(char_str), char_str)
return(char_str_2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.