Replace some as.integer() with storage.mode(.) <- "integer"

 - A bit less clunky