col_classes not returning expected output

```
dat <- data.frame(x = runif(3), y = c("a", "d", "c"))
apply(dat, 2, class)
```

returns

```
          x           y 
"character" "character" 
```

Should probably use `unlist(lapply(dat, class))` instead.
