Add support for groups in opt_interactive() via reactable groupBy

[olivroy]

Summary

• Use defaultExpanded = TRUE + groupBy in reactable::reactable()
• FIddle to add the group data to data_tbl in render_as_i_html()

Here is an implementation of showing groupname_col. This feels incomplete, but wanted to get the ball rolling,

Basically,

mtcars |> dplyr::slice_head(n = 10) |> gt(groupname_col = "vs") |> opt_interactive()

Now (hide group cols):

This PR:

Let me know if you can think of how this could be improved.

I think this opens the door to supporting summary_rows().

Is there a way to test (at least visually the interactive output. Maybe a new vignette that contains just examples could be created?

Just to visually be able to see what's going on, and if regressions are not introduced by my fiddling.

Limitations

• Wrong number of rows shown
• No merged column groups
• Wrong row total number
• Still no summary_rows
• ignores a couple things probably, such as the css of groups. This could easily be added if necessary
• cols_hide() respected?

Advantage

• Actually show group cols
• expanding cols

Related GitHub Issues and PRs

• Ref: fixes groupname_col disappears with opt_interactive() #1705

Checklist

• I understand and agree to the Code of Conduct.
• I have listed any major changes in the NEWS.
• I have added testthat unit tests to tests/testthat for any new functionality.

[rich-iannone]

I totally agree with this implementation! As for testing, the article/vignette route might be the only practical way to go.

[olivroy]

Sweet. I can look into doing this afterwards!

[rich-iannone]

LGTM

[rich-iannone]

Everything looks good here. I understand you want to follow up with further changes in other PRs. In that case is this PR ready to merge?

[olivroy]

Yes. This PR is good to go!