I think @Roland's answer is correct: you need to tell read.csv not to convert the IDs to numeric, but leave them as characters:

readcsv2010 <- read.csv("input.csv", colClasses = "character")