r - グループごとに複数のモデルを構築する

Question

データをグループ化し、グループごとに 2 つの線形モデルを構築し、結果を収集し、ほうきを使用してモデル パラメーターを要約したいのですが、理解できない無限再帰エラーが発生しています。コードは次のとおりです。

library(dplyr)
library(tidyr)
library(broom)

mtcars %>% 
group_by(am) %>% 
dplyr::do(simple_fit =  lm(mpg ~ disp, data = .), 
          complex_fit = lm(mpg ~ disp + hp, data = .)) %>% 
ungroup()
gather(model_type, model, -am) %>% 
broom::tidy(model)

このエラーが発生します。

Error: evaluation nested too deeply: infinite recursion / options(expressions=)?

この例には 4 つのモデルしかないので、なぜこんなに深い入れ子になったループにぶつかっているのかわかりませんか?