Delete an element from a list while iterating in R

Question

I have this R function where i make some computations like average and median of such values comes from a website. fromTime and toTime are two date