Found it meanwhile and it works. Still don't get what the 1 margin does?
df$x<- apply(constats, 1, function(row) ifelse(any(row == 1), 1, 0))