.myformulatocharacter <- function(formula) {
string <- strsplit(Reduce(paste, deparse(formula)), split = '')[[1]] %>%
paste0(collapse = '+') %>%
gsub('^\\s|\\s$', "", .) %>%
strsplit(., split = '\\s+\\+\\s+')
string <- string[[1]] %>%
gsub('\\.', "", .)
string[nzchar(string)]
}
.myformulatocharacter2 <- function(formula) {
string <- unlist(strsplit(formula, "+", fixed=TRUE)) %>%
gsub('\\s', "", .) %>%
strsplit(., split = '\\s+\\+\\s+')
string <- string[nzchar(string)]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.