Always showing badges + removing download badges.

SebKrantz · Oct 12, 2023 · 738482e · 738482e
1 parent 1e16b43
commit 738482e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/build-home-index.R b/R/build-home-index.R
@@ -22,7 +22,7 @@ build_home_index <- function(pkg = ".", quiet = TRUE) {
   render_page(pkg, "home", data, "index.html", quiet = quiet)
 
   strip_header <- isTRUE(pkg$meta$home$strip_header)
-  hide_badges <- pkg$development$mode == "release" && !pkg$development$in_dev
+  hide_badges <- FALSE # pkg$development$mode == "release" && !pkg$development$in_dev
 
   update_html(
     dst_path,

diff --git a/R/tweak-homepage.R b/R/tweak-homepage.R
@@ -115,7 +115,8 @@ badges_extract <- function(html) {
 
   xml2::xml_remove(x)
 
-  as.character(badges)
+  badges <- as.character(badges)
+  badges[!grepl("download", badges, ignore.case = TRUE)]
 }
 
 badges_extract_text <- function(x) {