May this be fine ?
foo <- function(df) {
x <- df[, 1, drop = FALSE]
available <- rev(letters[(letters %in% colnames(df)) == FALSE])
colnames(x) <- available[1]
dfOut <- data.frame(df, x)
dfOut
}
Data <- data.frame(x = c(1, 2), y = c(3, 4))
foo(Data)
x y z
1 1 3 1
2 2 4 2
--
GG
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
