To retain only those columns that begin with INPUT_:
INPUT_
> new.audit <- audit[, grep("^INPUT_", names(audit))]