Commit 2d724dc8 authored by Holger Brandl's avatar Holger Brandl

improved apidoc

parent de1d29eb
...@@ -184,12 +184,14 @@ column2rownames<- function(df, colname){ ...@@ -184,12 +184,14 @@ column2rownames<- function(df, colname){
return(df) return(df)
} }
## pushing some columns to the right end of a data.frame ## pushing some columns to the end of a data.frame
## TBD how to make this possible without quoting column names?
push_right <- function(df, pushColNames){ push_right <- function(df, pushColNames){
df[,c(setdiff(names(df),pushColNames), pushColNames)] df[,c(setdiff(names(df),pushColNames), pushColNames)]
} }
## pushing some columns to the beginning of a data.frame
push_left <- function(df, pushColNames){ push_left <- function(df, pushColNames){
df[,c(pushColNames, setdiff(names(df),pushColNames))] df[,c(pushColNames, setdiff(names(df),pushColNames))]
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment