#118 #97 make new name for processed output and return object using n…

…ew name
egouldo · Aug 23, 2024 · 4ceec4d · 4ceec4d
1 parent f834047
commit 4ceec4d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/standardise_response.R b/R/standardise_response.R
@@ -192,7 +192,7 @@ log_transform_response <- function(data, sim = 10000L, ...) {
   cli::cli_h1(glue::glue("Computing meta-analysis inputs:"))
   cli::cli_h2(glue::glue("Log-transforming response-variable"))
 
-  data <- data %>%
+  out <- data %>%
     pointblank::col_exists(
       columns = pointblank::vars(
         "id_col",
@@ -207,5 +207,5 @@ log_transform_response <- function(data, sim = 10000L, ...) {
                                          NA))) %>%
     ungroup()
 
-  return(data)
+  return(out)
 }