"fillout" <- function(x,y) { if (is.vector(x)) while (length(x)<y) x <- c(x,x) x[1:y] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.