From 7c0853ff741b030d2d710fa5217357b8eb51108b Mon Sep 17 00:00:00 2001 From: egouldo Date: Mon, 12 Aug 2024 23:40:42 +1000 Subject: [PATCH] #104 use input argument `dataset`, not column in input arg `dat`, as `dat` may or may not have the required `dataset` column. --- R/standardise_response.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/R/standardise_response.R b/R/standardise_response.R index de402db..69363a4 100644 --- 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 }