## File Name: sirt_rbind_fill.R
## File Version: 0.06
## reimplementation of plyr::rbind.fill
sirt_rbind_fill <- function( x, y )
{
nx <- nrow(x)
ny <- nrow(y)
vars <- c( colnames(x), setdiff( colnames(y), colnames(x) ) )
z <- matrix( NA, nrow=nx+ny, ncol=length(vars) )
colnames(z) <- vars
z <- as.data.frame(z)
z[ 1L:nx, colnames(x) ] <- x
z[ nx + 1L:ny, colnames(y) ] <- y
return(z)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.