XLSX / XLConnect将单元格样式设置为数字

Question

我想将我的Excel输出格式设置为数字格式。但是基于我代码的其他部分，我只能通过Excel编写步骤更改格式。我查看了诸如XLSX和XLConnect包之类的R文档，似乎cellStyle和DataFormat将是两件事。但是我在cs <- CellStyle()部分中苦苦挣扎。它根本不起作用：（

我在下面提供了一个非常基本的excel工作表，希望有人能帮助我。我将不胜感激！

library(xlsx)
wb <- createWorkbook()
sheet1 <- createSheet(wb, "Sheet1")
rows <- createRow(sheet1, 1:10) # 10 rows
cells <- createCell(rows, colIndex=1:8) # 8 column

setCellValue(cells[[1, 1]], "1.29")

cs <- CellStyle(wb, dataFormat=DataFormat("0.00"))
setCellStyle(cells, cs)

saveWorkbook(wb, "foo.xlsx")
shell.exec("foo.xlsx")

结果excel单元格发布在下面，并带有一条警告消息：“此单元格中的数字格式为文本或以单引号开头”