Update out-of-service.R

synoptic/out-of-service.R

@@ -26,7 +26,17 @@ prep_troll_oos_table <- function(troll) {
     troll$oos_end <- troll$oos_end + 60 * 60 * 24
 
     troll$Sensor <- troll$Troll
+
+    # If an Aquatroll is out of service, ALL of its data channels
+    # (Barometric_Pressure600A Temperature600A, etc.) should be flagged.
+    # But right now we don't have a way to do this, because the design link
+    # {what}-{site}-{plot}-{which} format doesn't allow it. So we flag the
+    # battery entry; once hierarchical flagging, is implemented, this should
+    # propagate to all the Aquatroll entries in L2 (but not L1).
     troll$What <- "GW_BattV"
+
+    # Return a data frame with the needed columns: the oos begin and end,
+    # as well as the additional columns to match
     troll[c("Site", "Location", "Sensor", "oos_begin", "oos_end")]
 }