r - ggforce::facet_grid_paginate からの出力を 1 つの PDF に保存する方法は?

Question

ggforceパッケージを使用して、複数のページにわたってファセット プロットを生成しています。

library(ggforce) 

for(i in 1:6){
  ggplot(diamonds) +
    geom_point(aes(carat, price), alpha = 0.1) +
    facet_wrap_paginate(~cut:clarity, ncol = 2, nrow = 2, page = i)

  ggsave(paste0("~/diamonds_", i, ".pdf"))
}

予想される6つのPDFファイルを生成しています：

出力を 6 ページの1 つの PDFにする最も簡単な方法は何ですか?

reportsこれはおよびパッケージで実行できることは理解していpdftoolsますが、これを達成するためのより直接的な方法があるかどうか疑問に思っています。出力をシングルページにする機能を ggforce が提供することを期待していますが、そうではないようです。