[FR] a way to not escape the row group label

[shrektan]

After PR #252, the row group label will be escaped. However, the user (like me) may need some styled or complicated row group label. I was able to do this by using the raw HTML text as the group column value. Now, it displays raw HTML text and the "escaping behavior" seems unavoidable.

I think being able to use raw HTML text as the row group label is a nice-to-have feature. So I'm here to ask for a feature request.

Thanks.

[schloerke]

Notes...

From a distance...

• Looks like this line is stripping any classed characters: https://github.com/rstudio/gt/pull/252/files#diff-796901aa6e7f969a03a8c1e9ebee492fR254
• This line should be a list column: https://github.com/rstudio/gt/pull/252/files#diff-796901aa6e7f969a03a8c1e9ebee492fR240
  • All following lines should respect the list column (ex: https://github.com/rstudio/gt/pull/252/files#diff-796901aa6e7f969a03a8c1e9ebee492fR260)

---

Since this was merged before the dt_* method conversion,

• I'm guessing it'll actually need updates in (and all following groupname lines): https://github.com/rstudio/gt/blob/284bbe57597c9547b298a1472ae1b4f7fd5e5558/R/dt_stub_df.R#L33
• Maybe make a helper for is.na(stub_df$groupname) since it'll be a list column? vapply(stub_df$groupname, is.na, logical(1))?

[schloerke]

Small test cases: (assuming html printing)

## Does contain an `AsIs` class in the column
data.frame(
  group = I("<strong>x</strong> &gt; 30"), 
  value = seq(1, 5)
) %>%
  gt(groupname_col = "group")

## Fully defined list column of html content
tibble::tibble(
  group = list(htmltools::HTML("<strong>x</strong> &gt; 30")), 
  value = seq(1, 5)
) %>%
  gt(groupname_col = "group")

---

###
# Does not set up column properly... `group` is a `Factor` heading into `gt`.
# This should produce unexpected results!
### 
data.frame(
  group = htmltools::HTML("<strong>x</strong> &gt; 30"), 
  value = seq(1, 5)
) %>%
  gt(groupname_col = "group")