Как добавить несколько комментариев в книгу Excel, используя openxlsx? - PullRequest
Новая
       96

Как добавить несколько комментариев в книгу Excel, используя openxlsx?

1 голос
/ 06 апреля 2020

В описании функции createComment openxlsx говорится, что комментарий может быть «символьным вектором» и, следовательно, применяться к нескольким ячейкам.

Однако добавление комментария ограничено одной ячейкой.

Есть ли способ добавить несколько комментариев к диапазону ячеек, используя символьный вектор?

Я что-то пропустил или это запрос на улучшение?

Этот MWE завершается неудачно со следующими сообщение: «Ошибка в comment_list [[i]] $ style [[j]]: индекс за пределами» 

library(openxlsx)

x <- as.data.frame(matrix(1:12, nrow = 3))
names(x) <- letters[1:4]

comment_vector <- paste("Comment", 1:4)

wb <- createWorkbook()
addWorksheet(wb, 1)

header_comments <- createComment(comment = comment_vector)
writeComment(wb, 1, col = 1:4, row = 1, comment = header_comments)

writeData(wb, sheet = 1, startRow = 1, x)

saveWorkbook(wb, "muliple_comments.xlsx", overwrite = TRUE)

Это работает, но должен быть лучший способ ... 


header1_comment <- createComment(comment = comment_vector[1])
writeComment(wb, 1, col = 1, row = 1, comment = header1_comment)

header2_comment <- createComment(comment = comment_vector[2])
writeComment(wb, 1, col = 2, row = 1, comment = header2_comment)

header3_comment <- createComment(comment = comment_vector[3])
writeComment(wb, 1, col = 3, row = 1, comment = header3_comment)

header4_comment <- createComment(comment = comment_vector[4])
writeComment(wb, 1, col = 4, row = 1, comment = header4_comment)

writeData(wb, sheet = 1, startRow = 1, x)

saveWorkbook(wb, "05_muliple_comments.xlsx", overwrite = TRUE)

Для производства: enter image description here

1 Ответ

1 голос
/ 22 апреля 2020

Я не думаю, что createComment разрешает комментарии в нескольких ячейках, компонент вектора символов используется для применения нескольких стилей в соответствии с примером в ?createComment.

Вероятно, самый простой способ обойти это это использовать lapply или for l oop. 

lapply(1:4, FUN = function(x) writeComment(wb, 1, col = x, row = 1, comment = createComment(comment = comment_vector[x])))

Так что в вашем примере это будет что-то вроде: 

library(openxlsx)

x <- as.data.frame(matrix(1:12, nrow = 3))
names(x) <- letters[1:4]
comment_vector <- paste("Comment", 1:4)

wb <- createWorkbook()
addWorksheet(wb, 1)

# Add multiple comments
lapply(1:4, FUN = function(x) writeComment(wb, 1, col = x, row = 1, comment = createComment(comment = comment_vector[x])))

writeData(wb, sheet = 1, startRow = 1, x)
saveWorkbook(wb, "muliple_comments.xlsx", overwrite = TRUE)
...