Quarto代码块内如何插入换行？XeLaTeX渲染内容溢出问题

有两种实用方法可以解决这个问题：

1. 手动拆分代码行（直接可控） #

把Accuracy那行过长的向量拆分成多行，每个元素单独占一行，让代码块内的行长度适配页边距。修改后的代码如下：

{r, result, results='asis'}
#create dataframe with results
result <- data.frame(Model=c("Logistic Reg.: Unscaled features",
                             "Logistic Reg.: Unscaled features",
                             "Logistic Reg.: Scaled features",
                             "Logistic Reg.: Scaled features",
                             "ANN",
                             "ANN",
                             "ANN & adjusted hyperparameters",
                             "ANN & adjusted hyperparameters"),
                      Data=c("in sample","out of sample","in sample","out of sample","in sample","out of sample","in sample","out of sample"),
                     Accuracy= c(
                       accuracy_log_train_unscaled,
                       accuracy_log_test_unscaled,
                       accuracy_log_train,
                       accuracy_log_test,
                       accuracy_ann_in,
                       accuracy_ann_out,
                       accuracy_ann_in_adj,
                       accuracy_ann_out_adj
                     )
                     )
            
newdata <- result[order(-result$Accuracy),]
setDT(newdata)

2. 利用Quarto代码块自动换行选项 #

在代码块参数里添加wrap="auto"，让XeLaTeX自动对过长代码行进行换行渲染，不用手动调整代码结构：

{r, result, results='asis', wrap="auto"}
#create dataframe with results
result <- data.frame(Model=c("Logistic Reg.: Unscaled features",
                             "Logistic Reg.: Unscaled features",
                             "Logistic Reg.: Scaled features",
                             "Logistic Reg.: Scaled features",
                             "ANN",
                             "ANN",
                             "ANN & adjusted hyperparameters",
                             "ANN & adjusted hyperparameters"),
                      Data=c("in sample","out of sample","in sample","out of sample","in sample","out of sample","in sample","out of sample"),
                     Accuracy= c(accuracy_log_train_unscaled,accuracy_log_test_unscaled,accuracy_log_train,accuracy_log_test,accuracy_ann_in,accuracy_ann_out,accuracy_ann_in_adj, accuracy_ann_out_adj)
                     )
            
newdata <- result[order(-result$Accuracy),]
setDT(newdata)

手动拆分适合需要精准控制代码可读性的场景，自动换行选项则更省心，两种方式都能解决内容超出页边距被遮挡的问题。

内容的提问来源于stack exchange，提问作者Natrium2