From 84e2cb986f8b3f84c050b372fdf93c9539185ab0 Mon Sep 17 00:00:00 2001 From: Nicholas Masel Date: Wed, 27 Mar 2024 14:00:52 +0000 Subject: [PATCH] news and bump version --- DESCRIPTION | 2 +- NEWS.md | 4 ++++ R/writer.R | 4 ++-- 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 4d6156a..8ef0b88 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: logrx Title: A Logging Utility Focus on Clinical Trial Programming Workflows -Version: 0.3.0 +Version: 0.3.1 Authors@R: c( person(given = "Nathan", diff --git a/NEWS.md b/NEWS.md index 97c8851..d2cc360 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,8 @@ +# logrx 0.3.1 + + - Hotfix to update used and unapproved packages and functions writing (#218) + # logrx 0.3.0 - Moved website theme to bootstrap 5, enabled search (#179) diff --git a/R/writer.R b/R/writer.R index 9e5991e..7d77d69 100644 --- 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(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(function_name, collapse = ", ")) + summarize(function_name = paste0(.data[[function_name]], collapse = ", ")) map2(combined$library, combined$function_name, ~paste(paste0("{", .x, "}"), paste0(.y, collapse = ", "))) %>% unname() %>%