Как я могу использовать R и XLConnect для сохранения электронных таблиц XLSX БЕЗ переноса текста в ячейки?

Библиотека XLConnect в R позволяет читать и записывать файлы электронных таблиц Microsoft Excel XLSX.

Однако при использовании writeWorksheet() или writeWorksheetToFile() текст автоматически переносится во все ячейки. Как отключить перенос текста? В идеале мне нужно создать электронные таблицы XLSX без переноса текста и с оптимальной шириной для каждого столбца.

Спасибо!


r excel word-wrap xlconnect
person enricoferrero    schedule 09.02.2015    source источник

Ответы (2)


arrow_upward
0
arrow_downward

Вот функция, основанная на XLConnect, которая сохраняет файл .xlsx на диск без переноса текста. В конце концов, один из вариантов стиля — авторазмер. Я подозреваю, что есть и другие варианты, которые явно или неявно останавливают перенос текста.

save.xls <- function(df, filename, sheetname="Sheet", create=TRUE, rownames=NULL, startRow=1, zebra=F) {
  require(XLConnect)
  require(stringr)

  if (is.matrix(df)) df <- as.data.frame(df)

  if (!str_detect(filename, "\\.xlsx$")) filename <- str_c(filename, ".xlsx")

  wb <- loadWorkbook(filename, create=create)

  if (existsSheet(wb, sheetname))
    warning(sprintf("Sheet %s already existed and was overwritten", sheetname))

  createSheet(wb, name=sheetname)
  if (!is.null(rownames)) df <- transform(df, rownames = row.names(df))
  writeWorksheet(wb, df, startRow=startRow, sheet=sheetname, rownames=rownames)

  if (zebra) {
    color <- createCellStyle(wb)
    setFillForegroundColor(color, color = XLC$"COLOR.LIGHT_CORNFLOWER_BLUE")
    setFillPattern(color, fill = XLC$FILL.SOLID_FOREGROUND)

    for (i in 1:ncol(df)) {
      setCellStyle(wb, sheet = sheetname, row = seq(startRow+1, nrow(df)+2, 2), col = i, 
                   cellstyle = color)
    }

    #prcntg <- createCellStyle(wb)  see my script of XLConnect.R for how it worked
    #dollar <- createCellStyle(wb)
    #setDataFormat(prcntg, format = "0.0")
    #setDataFormat(dollar, format = "$ 0.00")

    border <- createCellStyle(wb)
    setBorder(border, side = c("bottom","top"), type = XLC$"BORDER.THICK", color = XLC$"COLOR.RED")
    setCellStyle(wb, sheet = "Sheet", row = startRow, col = 1:ncol(df), cellstyle = border)
    setColumnWidth(wb, sheet = "Sheet", column = 1:ncol(df), width = -1) # this autosizes each column
  }

  saveWorkbook(wb)
}
person lawyeR    schedule 09.02.2015

arrow_upward
0
arrow_downward

Решил это, переключившись на пакет xlsx, который также имеет лучший синтаксис.

person enricoferrero    schedule 19.02.2015