Explode a columns properties into new columns with a binary value

gistfile1.r

# Nice for then doing aggregate functions

for(t in unique(df$colToExplode)) {
     a[paste("",t,sep="")] <- ifelse(df$colToExplode==t,1,0)
}