KellyO R code for attempt at Euler 8

I think you've got an off-by-one error here, I don't think your program ever examines the final (1000th) digit.