get target conc and vol after summary

KaiAragaki · Apr 16, 2024 · 953a1f1 · 953a1f1
1 parent c717b13
commit 953a1f1
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/qp_report.R b/R/qp_report.R
@@ -254,13 +254,18 @@ dil_summary <- function(qp) {
   target_conc <- qp$.target_conc
   target_vol <- qp$.target_vol
 
-  qp |>
+  qp <- qp |>
     dplyr::summarize(
       .by = c(
         ".sample_name", ".pred_conc_mean", ".target_conc",
         ".target_vol", "sample_type"
       )
-    ) |>
+    )
+
+  target_conc <- qp$.target_conc
+  target_vol <- qp$.target_vol
+
+  qp |>
     qp_dilute(
       target_conc = target_conc,
       target_vol = target_vol