Значения исчезают после addMergedRegion (xlsx) - PullRequest
Новая
       9

Значения исчезают после addMergedRegion (xlsx)

0 голосов
/ 06 марта 2020

Я пытаюсь создать 2 ячейки слияния и центрирования в Excel с помощью функции addMergedRegion в R. Кажется, что код частично работает, потому что он создает 2 ячейки слияния и 1 значение. Однако значение первой ячейки исчезнет. Я был бы очень признателен за любую помощь. Я впервые создаю отформатированные документы Excel из R. 

wb1 <- createWorkbook()
sheet1 <- createSheet(wb = wb1, sheetName = "Sheet1")
style <- CellStyle(wb1) + Alignment(wrapText=TRUE, horizontal="ALIGN_CENTER") 

row <- createRow(sheet1, rowIndex = 2) 
cell <- createCell(row, colIndex= 5) 
setCellValue(cell[[1,1]], "FY20 Q1")
setCellStyle(cell[[1,1]], style)
addMergedRegion(sheet1, 2, 2, 5, 6)

row <- createRow(sheet1, rowIndex = 2) 
cell <- createCell(row, colIndex=7) 
setCellValue(cell[[1,1]], "FY20 Q2")
addMergedRegion(sheet1, 2, 2, 7, 8)
setCellStyle(cell[[1,1]], style)

saveWorkbook(wb1, file = "Test.xlsx")
...