Reduce multiple columns to single binary vector

binRC.R

# Function to reduce multiple columns to single binary vector
# c = data frame or columns of interest
binRC <- function(c){
 d <- as.integer(rowSums(c)>0)
 return(d)
}                 

# Here's an example, using a randomly generated data frame
set.seed(42)
df <- data.frame(col1 = rbinom(n=100, size=1, prob=0.05), 
                 col2 = rbinom(n=100, size=1, prob=0.25),
                 col3 = rbinom(n=100, size=1, prob=0.25))

binRows(df[,1:3])