r - expss パッケージの出力を保存するには?

Question

expss パッケージを使用して、mtcar データの要約テーブルを作成します。

library(expss)
data(mtcars)

mtcars %>% 
    tab_cells(cyl) %>% 
    tab_cols(total(), vs) %>% 
    tab_rows(am) %>% 
    tab_stat_cpct(total_row_position = "above",
                  total_label = c("number of cases", "row %"),
                  total_statistic = c("u_cases", "u_rpct")) %>% 
    tab_pivot()

私はそのような出力を得ます：

出力をhtml、pdf、またはjpegファイルに保存したいと思います。残念ながら、ループの前またはループ内で save.image を暗号化することはできません。これには簡単な解決策が必要ですか？ビューアーからの書き出しも何とかやってみましたが、やはり失敗しました。

さらに、異なるエンジンごとの因子 (つまり、シリンダー) のケース数とその全体的な比率を 1 つの行に表示する可能性があります (例: n ケース (xy%) ?)