this works:

d %>%
  gtsummary::tbl_summary(
    data = .,
    include = -id,
    label = list(
      inf_1 ~ paste(attr(d$inf_1, "label"), paste0("(", attr(d$inf_1, "units"), ")")),
      inf_2 ~ attr(d$inf_2, "label")
    ),
    type = list(all_continuous() ~ "continuous2"),
    statistic = list(
      all_continuous() ~ c("{median} ({p25}, {p75})", "{min}, {max}"),
      all_categorical() ~ "{n} / {N} ({p}%)"
    )
  ) %>%
  gtsummary::as_gt()