MiraiのXLConnectを使用した番号の書式設定

Question

私は、週単位で再実行する必要があるレポートを準備しています。それはExcelでクライアントに行く必要があり、私は大きな成功のためにRのXLConnectパッケージを使用してきましたが、私は自分自身で来ることができない1つの問題があります。

を考えると、次のコード：

a | b 
1 | 1 
2 | 2 
3 | 3 
etc. 

方法：しかし、彼らのようにワークシートに来ている

a | b 
1.0 | 1.0 
2.0 | 2.0 
3.0 | 3.0 
etc. 

：として

simple <- data.frame(a = c(1,2,3,,4,5), b = c(1,2,3,4,5)) 

library(XLConnect) 
prcntg <- createCellStyle(wb) 
setDataFormat(prcntg, format = "0.0") 

wb <- loadWorkbook("foo.xlsx", create = FALSE) 

sheet <- "bar" 
createSheet(wb, sheet) 

writeWorksheet(wb, simple, sheet = sheet) 
rows <- 1:5 
cols <- 1:2 
setCellStyle(wb, sheet = sheet, row = rows, col = cols, cellstyle = prcntg) 

私は値を印刷したいです後者ではなく前者を得ますか？私がここで見たドキュメントと投稿に基づいて：https://miraisolutions.wordpress.com/2011/08/31/xlconnect-a-platform-independent-interface-to-excel/

私はすべてのことを正しくやっているように感じますが、明らかに私はそうではありません。

Answer 1

次は私のために動作するように表示されます。

wb <- loadWorkbook("~/Desktop/foo.xlsx", create = TRUE) 
prcntg <- createCellStyle(wb) 
setDataFormat(prcntg, format = "0.0") 

sheet <- "bar" 
createSheet(wb, sheet) 

writeWorksheet(wb, simple, sheet = sheet) 
rows <- 2:6 
cols <- 1:2 
setCellStyle(wb, sheet = sheet, row = rep(2:6,times = 2), col = rep(1:2,times = 6), cellstyle = prcntg) 
saveWorkbook(wb) 

これは（警告を含む）で実行されます。行と列の引数の指定はsetCellStyleにあることに注意してください。私は、XLConnectが最近私のためにちょっとしたことをしていたので（OS Xを使っていて、2.15.0のソースからそれをビルドしなければならなかったので）、これもあなたにとってうまくいくと思うのは嫌ですCRANはバイナリがないのでチェックします）。