dplyr :: mutate unquote RHS

Мне интересно, как правильно UQ строку создавать имена переменных на RHS в dplyr методах, таких как mutate. См. Сообщения об ошибках, которые я получил в комментариях в wilcox.test части этого MWE:

require(dplyr)

dfMain <- data.frame(
    base = c(rep('A', 5), rep('B', 5)),
    id   = letters[1:10],
    q0   = rnorm(10)
)

backgs <- list(
    A = rnorm(13),
    B = rnorm(11)
)

fun <- function(dfMain, i = 0){

    pcol <- sprintf('p%i', i)
    qcol <- sprintf('q%i', i)

    (
        dfMain %>%
        group_by(id) %>%
        mutate(
            !!pcol := ifelse(
                !is.nan(!!qcol) &
                length(backgs[[base]]),
                wilcox.test(
                    # !!(qcol) - backgs[[base]] 
                    # object 'base' not found
                    # (!!qcol) - backgs[[base]]
                    #  non-numeric argument to binary operator
                    (!!qcol) - backgs[[base]]
                )$p.value,
                NaN
            )
        )
    )

}

dfMain <- dfMain %>% fun()

Я полагаю, что в !!(qcol) ... это интерпретируется так, как будто я хотел бы убрать кавычки всего выражения, а не только имени переменной, поэтому он не находит base? Я также обнаружил, что (!!qcol) возвращает саму строку, поэтому неудивительно, что оператор - не может ее обработать.