导出为csv，同时保留以“"；表示的整数的数字；。0“；在R

我有以下数据帧：

myd <- data.frame(a = c(3.0, "2.0 (1.8, 2.2)"))
myd$a[1] <- format(round(as.numeric(myd$a[1]), 1), nsmall = 1)

我想将myd导出到csv（或excel）。所以我试过了

write_csv(myd, "myd.csv")

但是，结果csv文件的第1行和第1列给出的是数字3，而不是3.0。csv的屏幕截图如下所示：

---

如何创建保留整数位数的.csv或.xlsx文件（输出3.0而不是3）？希望这可以在tidyverse生态系统中解决，但也欢迎其他解决方案。

您不需要做任何事情。write_csv函数会保留数字，但在Excel中打开文件时，您不会看到它们。看我的截图

write_csv(myd, "myd.csv")