From 89881b3b35a164c85fb5e5f5445aa10d1778de11 Mon Sep 17 00:00:00 2001 From: Ben Bond-Lamberty Date: Wed, 20 Dec 2023 18:23:47 -0500 Subject: [PATCH] Tweaks --- synoptic/L1_normalize.qmd | 2 +- synoptic/data_TEST/L1_metadata/L1_metadata_columns.csv | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/synoptic/L1_normalize.qmd b/synoptic/L1_normalize.qmd index 3823616..c260054 100644 --- a/synoptic/L1_normalize.qmd +++ b/synoptic/L1_normalize.qmd @@ -215,7 +215,7 @@ f <- function(fn, out_dir, design_table) { x <- separate(dat, design_link, sep = "-", into = c("What", "Site", "Location", "Sensor")) # It turns out that the out of service check is SUPER expensive (50% of driver runtime) - # Since right now it's only applicable to Aquatroll, check for this and skip if possible + # Since right now it's only applicable to Aquatroll, so check for this and skip if possible if(grepl("WaterLevel", dat$Table[1])) { dat$F_OOS <- as.integer(oos(oos_troll, x)) } else { diff --git a/synoptic/data_TEST/L1_metadata/L1_metadata_columns.csv b/synoptic/data_TEST/L1_metadata/L1_metadata_columns.csv index 34fe150..b438e91 100644 --- a/synoptic/data_TEST/L1_metadata/L1_metadata_columns.csv +++ b/synoptic/data_TEST/L1_metadata/L1_metadata_columns.csv @@ -4,5 +4,5 @@ design_link,Design name that links to experimental unit (character) research_name,Measurement name (character) value,Observed value (numeric). The no-data value is '[NA_STRING_L1]' ID,Observation ID (character) -F_OOB,"Flag: Out of instrumental bounds (1=TRUE, 0=FALSE) (logical)" -F_OOS,"Flag: Out of service according to records (1=TRUE, 0=FALSE) (logical)" +F_OOB,Flag: Out of instrumental bounds (1=TRUE) (logical) +F_OOS,Flag: Out of service according to records (1=TRUE) (logical)