MS Excelファイルのセル形式をXLConnect経由でRから

Question

MS Excelシートのセルに簡単に変更しようとするとRからXLConnectになります。

具体的には、最初の行を太字にします。クイック検索でわかるのは、Excel内でスタイルを定義してからRにインポートすることができますが、すべての変更がRスクリプトで再現可能でなければならないため、このオプションは私には適していません。ここで

がXLConnectで作成したExcelファイルの例です：

require(XLConnect) 

wb <- loadWorkbook("test.xlsx", create = TRUE) 
createSheet(wb, name = "foo") 
df <- data.frame(number = 1:4, 
       species = c("dog", "cat")) 
writeWorksheet(wb, df, sheet = "foo", startRow = 1, startCol = 1) 
saveWorkbook(wb) 

おそらくこれは、xlsxパッケージ付き]簡単ですか？私は既にopenxlsxと技術的な問題に遭遇しました。

EDIT：私は、セルの背景色を変更し、同様の方法が太字にフォントを変更するために使用することができると仮定する方法を知っている：

は

cs.tr <- createCellStyle(wb) 
setFillForegroundColor(cs.tr, color = XLC$"COLOR.WHITE") 
setCellStyle(wb, sheet = "foo", row = 1, col = 1:2, 
      cellstyle = cs.tr) 

Answer 1

この問題の周りの小さな作品があります。 "テンプレート" Excelスプレッドシートを作成し、興味のあるセルスタイルを作成します。たとえば、Excelでは、my.headerとmy.tableという新しいセルスタイルを作成します。 my.headerは11pt太字のCalibriで、my.regularは10ptのCalibriです。このExcelファイル（ "myExcel.xlsx"）をどこかに保存しておくと便利です。

は、次にRで、次の操作を行います。私は、私も私のお気に入りのズームレベルに視聴ズームを設定することができるように...あなたはおそらくことを行う必要はありませんスプレッドシート]タブのクローンを作成

library(XLConnect) 
wb <- loadWorkbook("myExcel.xlsx") 
# bring excel styles in the spreadsheet into R 
style.title <- getCellStyle (wb , "my.header") 
style.normal <- getCellStyle (wb , "my.table") 
# copy the first sheet in myExcel as a "template" for use in R 
sheet_names <- getSheets(wb) 
sheet_template <- sheet_names[1] 

# do something useful in R  
df<-mtcars 

# now clone template as a new sheet (instead of creating it) 
cloneSheet(wb, sheet_template, "newSheet") 
writeWorksheet (wb , data = df , sheet ="newSheet" , startRow =1 , startCol =1 , header = TRUE) 
setCellStyle(wb , sheet ="newSheet" , row =1 , col =1:dim(df)[2] , cellstyle =style.title) 

saveWorkbook (wb, "myNewExcel.xlsx") 

。