Allow tidyselect and rlang .data prefix in `gt_sparkline.R`

[ddsjoberg]

Hello!

I am writing a simple wrapper for gt_sparkline() for {gtsummary} tables. One issue I ran into was that the gt_sparkline(column=) argument couldn't accept the rlang .data prefix. The update also allows users to utilize tidyselect selectors. Example below!

library(gt)

mtcars %>%
  dplyr::group_by(cyl) %>%
  # must end up with list of data for each row in the input dataframe
  dplyr::summarize(mpg_data = list(mpg), .groups = "drop") %>%
  gt() %>%
  gt_sparkline(.data$mpg_data)

[jthomasmock]

Thanks! I may take that approach in a few other places, hadn't really considered need for the .data prefix.

[ddsjoberg]

Thank you @jthomasmock !