setCellStyle - применить стиль ячейки (проценты) к матрице, используя XLConnect

Question

Мой вопрос основан на проблеме, упомянутой в предыдущем вопросе. Форматирование чисел с использованием XLConnect Mirai. У меня проблемы с реализацией этого решения от @joran, и я думаю, что я, возможно, не единственный человек с этой проблемой.

Я хочу экспортировать матрицу корреляции (10x10), чтобы преуспеть. Он сохраняется в виде матрицы под названием экспорт.

library(XLConnect)
wb <- loadWorkbook(paste0("corr_test.xlsx"), create = TRUE)
prcntg <- createCellStyle(wb)
setDataFormat(prcntg, format = "0.00%")
createSheet(wb, name="corr")
writeWorksheet(wb,export,"corr",startRow = 2, startCol = 1, header = TRUE)
setColumnWidth(wb, sheet = "corr", column = 1:30, width = -1)
setCellStyle(wb, sheet = "corr", row= rep(3:12,times=10), col = rep(1:10,     
+times=12), cellstyle = prcntg)
saveWorkbook(wb)

У меня проблемы с этой линией

setCellStyle(wb, sheet = "corr", row= rep(3:12,times=10), col = rep(1:10,     
+times=12), cellstyle = prcntg)

Мне не удается применить стиль ко всей матрице. Речь идет о аргументах row и col, которые вызывают проблемы.

Результат выглядит как на картинке ниже.

Я пробовал бесконечное количество комбинаций сейчас. Любая помощь высоко ценится

Answer 1

Следующие должны сделать это:

rc = expand.grid(row = 3:12, col = 1:10)
setCellStyle(wb, sheet = "corr", row= rc$row, col = rc$col, cellstyle = prcntg)