Как удалить cellProtection и сохранить другие свойства ячейки такими же, используя xlsx в R? - PullRequest
Новая
       7

Как удалить cellProtection и сохранить другие свойства ячейки такими же, используя xlsx в R?

0 голосов
/ 14 декабря 2018

Я хочу удалить cellProtection из ячейки и сохранить исходные свойства (заливка, границы, ...), но мне это не удается.

Я следую за этим вопросом и я эффективно использую следующий код: 

library(xlsx)
wb = createWorkbook()
s1 = createSheet(wb, "Sheet 1")
addDataFrame(mtcars, s1) #using mtcars as example dataset
cs = CellStyle(wb, cellProtection = CellProtection(locked=F)) #setting style to unlock cells
rows <- getRows(s1, rowIndex=2:101)
cells <- getCells(rows, colIndex = c(2)) #getting the cells to unlock
lapply(
   names(cells), 
   function(ii){
       setCellStyle(cells[[ii]],cs) #applying unlocking to all columns except the second one (the one i want to leave locked)

    }
)
saveWorkbook(wb, "file.xlsx")

Но это, очевидно, не поддерживает исходное форматирование ячеек.

Как сохранить исходное форматирование и добавить cellProtection?

...