From 74c28d54e6c130805148a5c900f6cdee2f235882 Mon Sep 17 00:00:00 2001
From: NDurden <ndurden@battelleecology.org>
Date: Thu, 13 Nov 2025 17:06:49 +0000
Subject: [PATCH] update function to select the last three columns for each
 concentration on each day

---
 R/reference_data_selection.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/reference_data_selection.R b/R/reference_data_selection.R
index e4bf7fe..e5a1ab7 100644
--- a/R/reference_data_selection.R
+++ b/R/reference_data_selection.R
@@ -53,11 +53,12 @@ select_daily_reference_data <- function(standard_df,
     standard_df <- standard_df %>%
     # get day of month
       dplyr::mutate(date = lubridate::date(.data$timeBgn)) %>%
-      dplyr::group_by(.data$date) %>%
+      dplyr::group_by(.data$date, .data$verticalPosition) %>%
       dplyr::filter(.data$dlta18OH2o.numSamp > min_nobs | is.na(.data$dlta18OH2o.numSamp)) %>%
       dplyr::slice(tail(dplyr::row_number(), 3)) %>%
       dplyr::ungroup() %>%
-      dplyr::select(-"date")
+      dplyr::select(-"date") %>%
+      dplyr::arrange(.data$timeBgn)
 
   } else {