I have over 100 csv files that contain data like this...
> dput(head(hobo.temp)) structure(list(Serial = c("Plot Title: 20461693", "#",