Использование dplyr для применения функции нескольких столбцов фрейма данных R

Используя «глаголы» dplyr, как я могу применить (общую) функцию к столбцу фрейма данных R, если эта функция зависит от нескольких столбцов фрейма данных?

Вот конкретный пример ситуации, с которой я сталкиваюсь. У меня есть такой фрейм данных:

df <- data.frame(
    d1 = c('2016-01-30 08:40:00 UTC', '2016-03-06 09:30:00 UTC'),
    d2 = c('2016-01-30 16:20:00 UTC', '2016-03-06 13:20:00 UTC'),
    tz = c('America/Los_Angeles', 'America/Chicago'), stringsAsFactors = FALSE)

Я хочу преобразовать время UTC в местное время, чтобы получить такой кадр данных:

                   d1                  d2                  tz
1 2016-01-30 00:40:00 2016-01-30 08:20:00 America/Los_Angeles
2 2016-03-06 03:30:00 2016-03-06 07:20:00     America/Chicago

Для этого я хотел бы применить следующую функцию, которая преобразует время UTC в местное время с помощью библиотеки lubridate, к столбцам даты:

getLocTime <- function(d, tz) {
    as.character(with_tz(ymd_hms(d), tz))
}

Используя dplyr, кажется, что преобразование

df %>% mutate(d1 = getLocTime(d1, tz), d2 = getLocTime(d2, tz))

должен сделать трюк. Однако это не удается с жалобой Error in eval(expr, envir, enclos): invalid 'tz' value.

Единственный способ, которым мне удалось выполнить преобразование в местное время, - это довольно неуклюжее назначение

df[c('d1', 'd2')] <- lapply(c('d1', 'd2'),
                            function(x) unlist(Map(getLocTime, df[[x]], df$tz)))

Существует ли естественный способ выполнить это преобразование с помощью идиом dplyr?