Tweak search for first non-whitespace line

r-lib · Jun 26, 2024 · 9426de1 · 9426de1
1 parent 89e09a6
commit 9426de1
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/R/news.R b/R/news.R
@@ -40,15 +40,10 @@ use_news_heading <- function(version) {
   }
 
   news <- read_utf8(news_path)
-  if (length(news) == 0) {
-    return(news)
-  }
+  idx <- match(TRUE, grepl("[^[:space:]]", news))
 
-  # find first non-blank line in news
-  for (idx in seq_along(news)) {
-    if (grepl("[^[:space:]]", news[[idx]])) {
-      break
-    }
+  if (is.na(idx)) {
+    return(news)
   }
 
   title <- glue("# {project_name()} {version}")