关于在用户定义函数中将具有正确标签的数据解析为表格

Question

我有以下代码：

#function:
sptable <- function(df, dv1, dv2, iv) {
  df %>% group_by(get(dv1), get(dv2) %>% ....

#example function call:
sptable(data, "age_group", "gender" , "grade")

我希望表的列名是 dv1(age_group)、dv2(gender) 的原始值.. 但是我有 get(dv1)、get(dv2) 作为变量名。我也尝试在最后添加重命名，但出现错误。

...rename( {{dv1}} = `get(dv1)`, {{dv2}} = `get(dv2)`)