Nothing
f.insert.row <- function( df, newrow, r ){
if( r != ( nrow( df ) + 1 ) ){
df[ seq( r + 1, nrow( df ) + 1 ), ] <- df[ seq( r, nrow( df ) ), ]
}
df[ r, ] <- newrow
return( df )
}
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.