Nothing
`as.xml` <-
function(x,...)UseMethod('as.xml')
`as.xml.character` <-
function(x,tag,...)glue(
bracket(tag,...),
x,
bracket(tag,close=TRUE)
)
`as.xml.data.frame` <-
function(x,keyname='row',key=rownames(x),...){
itemize <- function(col,frame,tag,key){
values <- frame[,col]
nest(as.xml(values,tag=tag,key=key),tag=col)
}
unlist(lapply(names(x),itemize,frame=x,tag=keyname,key=key))
}
`as.xml.default` <-
function(x,tag,...)as.xml(as.character(x),tag,...)
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.