getOneWordFromString <- function(string, position = 1, sep = "_"){
str_splitted <- str_split(string = string, pattern = sep, n = Inf)
return(str_splitted[[1]][position])
}
getMoreThanOneWordFromString <- function(string, position_start = 1,
position_end, sep = "_"){
str_splitted <- str_split(string = string, pattern = sep, n = Inf)
return(paste(str_splitted[[1]][position_start:position_end], collapse = "_"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.