Add site and plot back in; see #169

COMPASS-DOE · May 7, 2024 · 61af273 · 61af273
1 parent fcbf4da
commit 61af273
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/synoptic/L1.qmd b/synoptic/L1.qmd
@@ -100,11 +100,12 @@ f <- function(dir_name, dirs_to_process, out_dir) {
         site <- dat$Site[1]
         plot <- dat$Plot[1]
         
-        # Order columns following the column metadata...
+        # Check for metadata columns that are missing...
         if(!all(column_md$Column %in% colnames(dat))) {
             stop("Column metadata file ", params$METADATA_COLUMNS_TABLE,
                  " has entries not in data: ", setdiff(column_md$Column, colnames(dat)))
         }
+        # ...order and remove columns not in the metadata...
         dat <- dat[column_md$Column]
         # ...and sort rows
         dat <- dat[order(dat$TIMESTAMP),]

diff --git a/synoptic/metadata/L1_metadata/L1_metadata_columns.csv b/synoptic/metadata/L1_metadata/L1_metadata_columns.csv
@@ -1,6 +1,8 @@
 # L1 data will be ordered following rows below, and these descriptions inserted into metadata
 Column,Description
-TIMESTAMP,Datalogger timestamp (EST) (POSIXct)
+Site,Site code; see site info above (character)
+Plot,Plot code; see site info above (character)
+TIMESTAMP,Datalogger timestamp in EST (POSIXct)
 Instrument,Name of measurement instrument (character)
 Instrument_ID,Identifier of instrument within plot (character)
 Sensor_ID,"Identifier of individual sensor, tree, etc. being measured (character)"