从R (openxlsx)设置Excel工作表缩放级别

Question

如果我使用R将工作表添加到Excel工作簿中，则可以通过以下方式设置其缩放级别：

openxlsx::addWorksheet(wb = wb, sheetName="foo", zoom = "bar")

，但如何将缩放级别设置为存在的工作表？ openxlsx提供了一个类似的选项，用于行高、列宽：

openxlsx::setColWidths()
openxlsx::setRowHeights()

但是我找不到缩放级别设置的选项。

Answer 1

不知何故，我们还没有为sheetViews实现get/set函数。sheetViews xml字符串包含缩放值：

"<sheetViews><sheetView workbookViewId=\"0\" zoomScale=\"100\" showGridLines=\"1\" tabSelected=\"1\"/></sheetViews>"

你可以这样设置。

# set zoom
set_zoom <- function(x) gsub('(?<=zoomScale=")[0-9]+', x, sV, perl = TRUE)

library(openxlsx)

wb <- createWorkbook()
addWorksheet(wb, "Sheet1")

sV <- wb$worksheets[[1]]$sheetViews
wb$worksheets[[1]]$sheetViews <- set_zoom(75)

openXL(wb)