Nothing
spellTree_3 <-
function(letra = character(),
bandera = integer(),
left = integer(),
rigth = integer(),
center = integer(),
palabra = list()) {
tree <- list(ch = letra, flag = bandera, L = left, R = rigth, C = center, word = palabra)
class(tree) <- append(class(tree), "spellTree_3")
return(tree)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.