I am using following code
summary.out$which[which.max(summary.out$adjr2),]
This gives me column names with one one row, which equals to TRUE