remove pipe from find_xaringan_themer_css()

R/css.R

@@ -21,9 +21,8 @@ read_css_vars <- function(file = NULL) {
 
 find_xaringan_themer_css <- function() {
   css_files <- list.files(pattern = "css$", recursive = TRUE, full.names = TRUE)
-  is_xt <- css_files %>%
-    purrr::map(readLines, n = 5) %>%
-    grepl(pattern = "generated by xaringanthemer", fixed = TRUE)
+  css_files_head <- purrr::map(css_files, readLines, n = 5)
+  is_xt <- grepl(pattern = "generated by xaringanthemer", css_files_head, fixed = TRUE)
 
   css_files[is_xt]
 }