feat: Start supporting forcats functions

[etiennebacher]

This is more of a PoC that relies on pola-rs/r-polars#1723.

library(dplyr, warn.conflicts = FALSE)
library(forcats)
library(tidypolars)

options(polars.factor_as_enum = TRUE)

# fct_rev()
identical(
  gss_cat |>
    select(partyid, tvhours) |>
    as_polars_df() |>
    mutate(partyid2 = fct_rev(partyid)) |>
    as_tibble(),
  gss_cat |>
    select(partyid, tvhours) |>
    mutate(partyid2 = fct_rev(partyid))
)
#> [1] TRUE

# fct_collapse()
identical(
  gss_cat |>
    select(partyid, tvhours) |>
    as_polars_df() |>
    mutate(
      partyid2 = fct_collapse(
        partyid,
        missing = c("No answer", "Don't know"),
        other = "Other party",
        rep = c("Strong republican", "Not str republican"),
        ind = c("Ind,near rep", "Independent", "Ind,near dem"),
        other_level = "FOOO"
      )
    ) |>
    as_tibble(),
  gss_cat |>
    select(partyid, tvhours) |>
    mutate(
      partyid2 = fct_collapse(
        partyid,
        missing = c("No answer", "Don't know"),
        other = "Other party",
        rep = c("Strong republican", "Not str republican"),
        ind = c("Ind,near rep", "Independent", "Ind,near dem"),
        other_level = "FOOO"
      )
    )
)
#> [1] TRUE