r - R - 関数内の with(df, glm(y ~ x)) 構造に数式を渡す方法

Question

Rのパッケージを使用して、mice欠落しているデータを乗算して代入しています。関数内の構造に渡される式を指定できる必要がありwith(df, glm(y ~ x))ます。このwith()構成は、推定された各miceデータセット内で回帰モデルを個別に適合させるためにパッケージによって使用される形式です。

ただし、数式を引数として正常に渡すことを妨げているスコープの問題を理解できません。再現可能な例を次に示します。

library(mice)

data(mtcars)
mtcars[5, 5] <- NA # introduce a missing value to be imputed

mtcars.imp = mice(mtcars, m = 5)

# works correctly outside of function
with(mtcars.imp, glm(mpg ~ cyl))

fit_model_mi = function(formula) {
  with(mtcars.imp, glm(formula))
}

# doesn't work when trying to pass formula into function   
fit_model_mi("mpg ~ cyl")

また、R ヘルプで同じ質問が行われていますが、回答はありません。こちらも参照してください。