R:在使用dplyr的函数中，在继续之前，我如何检查以确保参数名称没有被引用

Question

长话短说：我有一个函数，其中参数grouping.var = record_id将起作用，但grouping.var = "record_id"将返回不正确的数据，不会出错。因此，我希望我的函数检查传递给参数的名称是否在引号中。

长话短说：我经常有数据显示，每个研究对象都会进行多次访问，每次访问都对应一行。一些在访问之间没有变化的数据(如种族或性别(只出现在一行。我的函数将把我输入的变量中的数据复制到该主题的所有行中。

mash <- function(data, variables, grouping.var){
data <- data %>%
dplyr::arrange(!!rlang::enquo(grouping.var))%>%
dplyr::group_by(!!rlang::enquo(grouping.var))%>%
dplyr::mutate_at(dplyr::vars(!!!variables),
function(x) zoo::na.locf(x[order(x)], na.rm = F))%>%
dplyr::ungroup()
return(data)
}
df <- tibble(record_id = c('A', 'A', 'A', 'B', 'B', 'C', 'C', 'C'),
x = c(NA, 1, NA, 2, NA, NA, NA, 3),
y = c(1, NA, NA, NA, 2, 3, NA, NA))
df
df.2 <- mash(df, c('x','y'), grouping.var = record_id) #This works fine.
df.2

如果我不小心引用了grouping.var，它将返回错误的数据而不会出错。

df.3 <- mash(df, c('x','y'), grouping.var = 'record_id') #does not work

如果我不抓住错误，这可能会给我带来大麻烦。因此，我想添加一个检查，以确定传递给该参数的名称的格式是否正确。

我尝试过if(is.character(grouping.var))、if(is_quosure(grouping.var))和if(is.object(grouping.var))语句，但如果grouping.var没有被引用(即格式正确(，它将返回错误。如果名称在引号中，我需要一些东西来停止函数，但如果不在引号中则允许它继续。

我承认，通常情况下，quoures会让我感到困惑，所以我可以在这个问题上寻求一些帮助。主要问题的其他解决方案也受到欢迎。

Answer 1

您可以使用.data[[foo]]函数，首先查询变量。dplyr 编程

mash <- function(data, variables, grouping.var){
grouping.var = enquo(grouping.var)
data %>%
dplyr::arrange(.data[[grouping.var]]) %>%
dplyr::group_by(.data[[grouping.var]]) %>%
dplyr::mutate_at(dplyr::vars(!!!variables),
function(x) zoo::na.locf(x[order(x)], na.rm = F))%>%
dplyr::ungroup()
}