From 9310487a02817f99ba037d5faf3f664c29998131 Mon Sep 17 00:00:00 2001 From: Maciej Nasinski Date: Sat, 25 Jan 2025 23:38:34 +0100 Subject: [PATCH] do not touch files --- antidotum/tergo/R/styling.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/antidotum/tergo/R/styling.R b/antidotum/tergo/R/styling.R index 39cfe382..c9ab5a31 100644 --- a/antidotum/tergo/R/styling.R +++ b/antidotum/tergo/R/styling.R @@ -95,8 +95,8 @@ style_pkg <- function(path = ".", } # List Relevant Files - files <- list.files(package_root, recursive = TRUE, full.names = TRUE, pattern = "\\.R$", ignore.case = TRUE) - #files <- Filter(function(file) any(endsWith(tolower(file), tolower(extensions))), files) + files <- list.files(package_root, recursive = TRUE, full.names = TRUE) + files <- Filter(function(file) any(endsWith(file, extensions)), files) # Define ANSI Color Codes and Unicode Symbols using Only \u Escapes green_tick <- "\u001B[32m\u2714\u001B[0m" # Green tick