R filtering the first point before and the last point after a section of rows containing NA

Question

Working with tracking data that tracks the XY position of an object. Reproducible example of my data:

trial <- c(rep(1, 25), rep(2, 25), rep(3, 25))
timemi