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)