getStyleText(styleName, rtfStyleDataFrameIn=rtfStyleDataFrame)
This function closes a section in the file and may mark the next section as protected.
TIBCO Software Inc.
rtfStyleDataFrame <- data.frame(
name=c("Table Header"),
styleNumTxt=c("\\s25"),
styleBasedOn=c(16),
snextNum=c(35),
styleText=c(
"\\ql \\fi-1701\\li1701\\ri0\\sb113\\sa57\\sl280\\slmult0\\keepn\\widctlpar\\aspalpha\\aspnum\\faauto\\outlinelevel4\\adjustright\\rin0\\lin1701\\itap0 \\b\\f1\\fs24\\lang1033\\langfe1041\\cgrid\\langnp1033\\langfenp1041",
),
stringsAsFactors=F)
TABLEHEADERSTYLE <- getStyleText("Table Header")