gt_badge conditional on variables

[aghaynes]

Prework

• [x] Search for duplicates among the existing issues (both open and closed).

Proposal

It would be nice to be able to set badges on only certain rows of a gt table. For instance, here's an example with missings

d <- tibble::tribble(
  ~a, ~b,
  "a", 1,
  "b", 2,
  "c", NA,
  "d", NA,
)

gt(d) |> 
  gt_badge(b,
           palette = c("red", "blue", "green")) |>
  sub_missing(missing_text = "")

There are two issues here. Firstly, the <br /> tag, which I guess might be a bug, and secondly, the badge itself on those <br /> tags, which would rather be blank instead.

It would be great to be able to do something like

gt(d) |> 
  gt_badge(b,
           palette = c("red", "blue"),
           rows = !is.na(b)) |>
  sub_missing(missing_text = "")

[jthomasmock]

I have this working locally now:

library(gtExtras)

d <- tibble::tribble(
  ~a, ~b,
  "a", 1,
  "b", 2,
  "c", NA,
  "d", NA,
)

d |> 
  #mutate(b = ifelse(is.na(b), "", b)) |> 
  gt() |> 
  sub_missing(missing_text = "") |> 
  gt_badge(b,
           palette = c("red", "blue"),
          rows = !is.na(b))