`strHead` <- function(
string,
n_char=1) {
if (n_char < 0)
substr(string, 1, nchar(string)+n_char)
else
substr(string, 1, n_char)
} ### END strHead function
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.