Debug a function in R that returns NA

Question

I am trying to write a function where it reads some pollution data from different files in a given directory, each file corresponding to records of a monitor and returns the mea