emptydf <- function(nrow, ncol, names) {
setNames(data.frame(matrix(NA_character_, nrow = nrow, ncol = ncol), stringsAsFactors = FALSE), names)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.