Оператор «% m%» с mapply

Question

Я пытаюсь использовать mapply, чтобы добавить месяцы к текущим датам в столбцах a и b моего фреймворка. Вот код, чтобы создать фрейм данных выборки:

library(lubridate) 
a <- as.Date(c("2012-01-11","2012-06-30","2012-04-18")) 
b <- as.Date(c("2013-04-21","2012-03-22","2012-05-01")) 
df <- data.frame(a,b) 

я могу использовать mapply("+",df, c(30,30)) добавить 30 дней к обеим колонкам даты. Однако, когда я пытаюсь использовать команду mapply("%m+%",df, months(1:2)) я получаю сообщение об ошибке:

Ошибки в .setupMethodsTables (FDEF, не инициализировать = TRUE): нет слота названия «группа» для данного объекта класса «derivedDefaultMethod»

Можно ли использовать mapply с оператором% m +%?

Answer 1

Для моих неосведомленных глаз S4 это, похоже, проблема с пакетом lubridate и способ, которым построен метод %m+%.

Глядя на the source,

Оказывается, что неэкспортируемая функция .quick_month_add будет делать то, что вы хотите

mapply(lubridate:::.quick_month_add,df,months(1:2), SIMPLIFY = FALSE) 
$a 
[1] "2012-01-11" "2012-06-30" "2012-04-18" 

$b 
[1] "2013-04-21" "2012-03-22" "2012-05-01" 

отмечают, что SIMPLIFY должен быть установлен в FALSE иначе вы получите числовую матрицу, как класс даты разделяется при упрощении до матрицы.

Или Map(lubridate:::.quick_month_add,df,months(1:2))