我正在使用 KnitR 創建 PDF，無論我想知道檔案的確切寬度是多少，或者我可以如何設定它。一旦我有了正確的寬度，我就可以使用它來居中我的文本。現在我正在使用getOption("width")，但這似乎不準確
centerText <- function() {
width <- getOption("width")
out <- "your text"
ws <- rep(" ", floor((width - nchar(out))/2))
cat(ws, out, sep = "")
}
centerText()
我一直無法找到更好的代碼來使代碼塊內的文本居中，但如果有人知道更好的方法，那將不勝感激。
uj5u.com熱心網友回復：
由于您正在創建 pdf，我認為更簡單的解決方案是使用乳膠。
---
title: "Untitled"
output: pdf_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
## R Markdown
### centering a text
```{r, results='asis'}
centerText <- function(text) {
out <- paste0("\\centerline{", text, "}")
cat(out)
}
centerText("Lorem ipsum dolor sit amet")
```
### centering a paragraph
```{r, results='asis'}
centerParagraph <- function(text) {
out <- paste0("\\begin{quotation}\n\\noindent\n", text, "\\end{quotation}\n")
cat(out)
}
centerParagraph("Lorem ipsum dolor sit amet consectetur adipiscing elit, urna
consequat felis vehicula class ultricies mollis dictumst, aenean non a in donec
nulla. Phasellus ante pellentesque erat cum risus consequat imperdiet aliquam,
integer placerat et turpis mi eros nec lobortis taciti, vehicula nisl litora tellus
ligula porttitor metus. ")
```
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/513775.html
上一篇：在MultiPagePdfFlutter中添加新頁面
下一篇：洗掉雙重擴展的正則運算式函式