refactor: apply review suggestions

ropensci-review-tools · Sep 19, 2024 · 483931f · 483931f
1 parent 037e9e3
commit 483931f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/render.R b/R/render.R
@@ -209,7 +209,9 @@ render_quarto_lang <- function(language_code, path, output_dir, type) {
     )
     freeze_ls <- fs::dir_ls(freeze_path, recurse = TRUE)
 
-    freeze_lang <- freeze_ls[grep(paste0("\\.", language_code, "$"), freeze_ls)]
+    freeze_lang <- purrr::keep(
+      freeze_ls, \(x) grep(paste0("\\.", language_code, "$"), x)
+    )
     freeze_dirs <- fs::path_rel(freeze_lang, start = freeze_path)
     freeze_dirs <- gsub(
       paste0(".", language_code), "",