r - Rでforcatsパッケージを使用して折りたたみ関数の引数を渡す方法

Question

Rで関数折りたたみカテゴリ変数を作成しています。関数には4つの引数が含まれていましたfunction(data, new_var, select_var, list_levels)が、最後の引数list_levelsを式のリストとして渡す方法、またはそれを機能させる方法を教えてください。

library(forcats)
partyid2 <- fct_collapse(gss_cat$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"),
                         dem = c("Not str democrat", "Strong democrat")
)
fct_count(partyid2)

collapse_cat <- function(data, new_var, select_var, list_levels){
  data[[new_var]] <- fct_collapse(data[[select_var]], ....................)
}

collapse_cat(gss_cat, "test", "partyid", list_levels = list(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"),
                                                            dem = c("Not str democrat", "Strong democrat")))