utils::globalVariables(c("write.table"))
.writeU2bsp=function(x,file,...){
## 2box
if (all(c("name","year","index","cv") %in% names(x)))
x=transform(x, name=as.integer(name))[,c("name","year","index","cv")]
write.table(x,file=file)
return(TRUE)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.