R 言語は flextable パッケージを使用して出力結果を Word にインポートし、デフォルトの出力を小数点以下 3 桁に設定します

最近、出力結果を Word にエクスポートする必要があるため、「
R 統計結果を Word にエレガントにエクスポートするには?」という記事を目にしましたが、「 library(flextable)
」をロードすると、次のエラーが報告され続けます。
Error: package or namespace load failed for 'flextable' in loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]): namespace 'xfun' 0.38 is already loaded, but >= 0.39 is required Traceback:

この問題を解決するためにこのパッケージを更新できると考えたのですinstall.packages("xfun")が、更新すると「アクセス許可が拒否されました」と表示され、管理者として実行することができません。

最後にこの回答を見つけました。インストール時に最初に削除してください

remove.packages("xfun") 
install.packages("xfun")
#或者install_version("xfun", version = "0.39",repos = "http://cran.us.r-project.org")

データiris (組み込みデータのようです。他のパッケージをロードしたり、自分でデータ フレームを構築したりする必要はありません) を例に挙げます。

library(xtable)
library(flextable)
library(officer)
m4 = as_flextable(xtable(iris))
doc = read_docx()
doc = body_add_flextable(doc,m4)
print(doc,"./m4.docx")

エクスポート結果は以下のように

関数として記述し、デフォルトの出力を小数点以下3桁に設定しました。

set_flextable_defaults(digits = 3)#这里设置默认输出三位小数
word<-function(x){
    
    
    m4 = as_flextable(xtable(x)
    print(m4)
    doc = read_docx()
    doc = body_add_flextable(doc,m4)
    print(doc,"./m4.docx")
}

出力は次のとおりです:
非常に満足です