list_df <- function(...) {
df <- list(...)
if (length(df) > 0) {
attr(df, "row.names") <- .set_row_names(length(df[[1]]))
} else {
attr(df, "row.names") <- .set_row_names(0L)
}
class(df) <- "data.frame"
df
}
Generated by dwww version 1.15 on Sat May 18 09:41:53 CEST 2024.