fix .data syntax

pharmaverse · Mar 27, 2024 · 2720dcc · 2720dcc
1 parent 84e2cb9
commit 2720dcc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/writer.R b/R/writer.R
@@ -156,7 +156,7 @@ write_used_functions <- function(){
 
  combined <- used_functions_list %>%
  group_by(library) %>%
- summarize(function_name = paste0(.data[[function_name]], collapse = ", "))
+ summarize(function_name = paste0(.data[["function_name"]], collapse = ", "))
 
  map2(combined$library, combined$function_name, ~paste(paste0("{", .x, "}"), paste0(.y, collapse = ", "))) %>%
  unname() %>%
@@ -188,7 +188,7 @@ write_unapproved_functions <- function(){
 
  combined <- unapproved_functions_list %>%
  group_by(library) %>%
- summarize(function_name = paste0(.data[[function_name]], collapse = ", "))
+ summarize(function_name = paste0(.data[["function_name"]], collapse = ", "))
 
  map2(combined$library, combined$function_name, ~paste(paste0("{", .x, "}"), paste0(.y, collapse = ", "))) %>%
  unname() %>%