#104 use input argument dataset, not column in input arg dat, as …

…`dat` may or may not have the required `dataset` column.
egouldo · Aug 12, 2024 · 7c0853f · 7c0853f
1 parent 7ce4e8c
commit 7c0853f
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/standardise_response.R b/R/standardise_response.R
@@ -87,14 +87,13 @@ standardise_response <- function(dat,
           purrr::pmap(
             list(
               back_transformed_data,
-              params,
-              dataset
+              params
             ),
             .f = ~ if (all(!rlang::is_na(..1), !rlang::is_na(..2))) {
               pred_to_Z(
                 back_transformed_data = ..1, 
                 params = ..2, 
-                dataset = ..3)
+                dataset = dataset)
             } else {
               NA
             }