Nothing
# todo add R specific things, data.frame and vector rendering
# for data.frames it should render per row (using paste)
# for vectors it should render per item (for ".")
section <- function(texts, keys, renders){
force(texts)
force(keys)
force(renders)
renderFUN <- function(value, context){
processSection(value, context, texts, keys, renders)
}
renderFUN
}
processSection <- function(value, context, texts, keys, renders){
if (isFalsey(value)){
return()
}
if (is.list(value) || is.vector(value)){
if (is.null(names(value))){
str <- sapply( value
, function(item){
context <- c(list(as.list(item)), context)
values <- lapply(keys, resolve, context=context)
renderTemplate(values, context, texts, renders)
}
)
return(paste(str, collapse=""))
} else {
context <- c(list(value), context)
}
}
values <- lapply(keys, resolve, context=context)
return(renderTemplate(values, context, texts, renders))
}
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.