refactor: apply review suggestions

ropensci-review-tools · Sep 19, 2024 · e4275cf · e4275cf
1 parent 037e9e3
commit e4275cf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/render.R b/R/render.R
@@ -209,7 +209,7 @@ 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), "",