setWrapText-methods(XLConnect)
setWrapText-methods()所属R语言包:XLConnect
Specifying text wrapping behaviour
指定文本换行行为
译者:生物统计家园网 机器人LoveR
描述----------Description----------
Specifies if text should be wrapped in a cell.
指定,如果文本应该被包裹在一个单元格。
用法----------Usage----------
## S4 method for signature 'cellstyle'
setWrapText(object,wrap)
参数----------Arguments----------
参数:object
The cellstyle to manipulate
cellstyle操作
参数:wrap
If wrap = TRUE, the text is wrapped if it exceeds the width of the cell - otherwise not.
如果wrap = TRUE,文本被包裹,如果它超过了单元格的宽度 - 否则不。
(作者)----------Author(s)----------
Martin Studer<br>
Mirai Solutions GmbH <a href="http://www.mirai-solutions.com">http://www.mirai-solutions.com</a>
参见----------See Also----------
workbook, cellstyle, setCellStyle, setStyleAction
workbook,cellstyle,setCellStyle,setStyleAction
实例----------Examples----------
# Load workbook (create if not existing)[负载工作簿(如果不存在创建)]
wb <- loadWorkbook("setWrapText.xlsx", create = TRUE)
# Create a worksheet[创建一个工作表]
createSheet(wb, name = "cellstyles")
# Create a dummy data set with some long text[创建一个虚拟数据集与一些长文本]
text <- data.frame(
Text = "Some very very very very very very very long text")
# Write the value to the 'cellstyles' worksheet in the [的值写入工作表中的“cellstyles”]
# top left corner (cell A1)[左上角(单元格A1)]
writeWorksheet(wb, text, sheet = "cellstyles", startRow = 1,
startCol = 1, header = FALSE)
# Create a custom anonymous cell style[创建一个自定义的匿名单元格样式]
cs <- createCellStyle(wb)
# Specify to wrap the text[指定文本换]
setWrapText(cs, wrap = TRUE)
# Set the cell style created above for the top left cell (A1) [设置单元格样式在上面创建的左上角的单元格(A1)]
# in the 'cellstyles' worksheet[在cellstyles工作纸]
setCellStyle(wb, sheet = "cellstyles", row = 1, col = 1,
cellstyle = cs)
# Save the workbook[保存工作簿]
saveWorkbook(wb)
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|