Группы Tidyverse работают для подведения итогов?

Я заметил, что при использовании оператора group_by с summarize я получаю предупреждение о том, что «перегруппировка отменяется аргументом .groups». Я нашел одну статью в Интернете, которая, кажется, указывает на то, что оператор group_by больше не нужен - нужно просто включить групповой аргумент с помощью summarize. Я хотел бы выяснить, как заставить эту работу работать, поскольку я готовлю онлайн-учебник для студентов, и чем меньше кода, тем лучше. Но для меня это не работает. Ниже мой представитель. Я просто пытаюсь получить средний возраст каждого пола

library(tidyverse)

femaledata <- data.frame(age = rnorm(n=5, mean = 29, sd = 4), gender = "female")
maledata <- data.frame(age = rnorm(n=5, mean = 37, sd = 6), gender = "male")
alldata <- bind_rows(femaledata, maledata)

summarydata <- alldata %>%
  summarize(gender, meanage = mean(age))

Фрейм данных сводных данных должен содержать только две строки (одну для женщин и одну для мужчин) со средним возрастом для каждой. Вместо этого мой фрейм данных выглядит так:

gender   meanage
female    32.6
female    32.6
female    32.6
female    32.6
female    32.6
male      32.6
male      32.6
male      32.6
male      32.6
male      32.6

Я знаю, что оператор group_by несложен, но если бы я мог избавиться от строчки кода, тем лучше.

Спасибо, Wythe