Nothing
do_call_rbind_withName <- function (df_list, name = names(df_list), colName){
if(!is.list(df_list) || any(sapply(df_list, function(x) !is.data.frame(x)))) {
stop("'df_list' must be a list of data.frames.")
}
if(!is.character(name) || length(df_list) != length(name)) {
stop("'name' must be a character vector of identical length as 'df_list'.")
}
if(!is.character(colName) || length(colName) != 1) {
stop("'colName' must be a character vector of length 1.")
}
if(colName %in% names(df_list[[1]])) {
stop("'colName' is already in use in the elements of 'df_list'.")
}
df_list2 <- Map(function(df, name) {
if (is.null(df))
return(df)
data.frame(rep(name, nrow(df)), df, stringsAsFactors = FALSE)
}, df = df_list, name = name)
df_df <- do.call(rbind, df_list2)
rownames(df_df) <- NULL
names(df_df)[1] <- colName
df_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.