Incorporating Fausto's flags

[bpbond]

df_troll<-df_troll %>% 
  mutate(flag_out_of_water = ifelse((wl_below_surface_m < ((ground_to_sensor_cm/100)* -0.98)|
                                    (site=="CRC" & datetime>"2022-07-19 00:00:00" & datetime<"2022-07-28 00:00:00")| 
                                    (site=="OWC" & datetime>"2022-07-21 08:00:00" & datetime<"2022-07-31 08:00:00")| 
                                    (site=="PTR" & location =="UP" & datetime>"2022-08-02 08:00:00" & datetime<"2022-08-12 08:00:00")|
                                    (site=="PTR" & location !="UP" & datetime>"2022-07-19 08:00:00" & datetime<"2022-07-29 08:00:00")
                                     ),"TRUE","FALSE"
                                    )
         )

So there are two things happening here:

Algorithmic QA/QC

The wl_below_surface_m < ((ground_to_sensor_cm/100)* -0.98 line is checking for data out of bounds basically.

But where do wl_below_surface_m and ground_to_sensor_cm come from?

Out of service

All the site/date checks are based on his out-of-service records. These can be easily added to our existing out-of-service framework.