控制多列标题格式化参数xtable

Question

我在下面的示例中创建了一个基本数据框，然后使用knitr通过LaTeX将其输出为PDF。我正在控制一些基本格式，并使用函数bold加粗列标题，并通过colnames()重新定义了我的列名。

但是，有一个名为spaces的函数，它自己将有效地从列标题中删除空格。有没有办法合并bold和spaces并将其传递到sanitize.colnames.function以避免手动重命名列标题？

目的是在分析过程中，当数据框（打印到表格）发生变化时，基本上操纵R中的数据框使其尽可能动态。

由于

\documentclass{article}

\begin{document}
%\SweaveOpts{concordance=TRUE}

hello here is a table - Table \ref{tab:mydataframe}

<<testtable, cache=FALSE, eval=TRUE, echo=FALSE, results = 'asis', warning=FALSE, error=FALSE, message=FALSE>>=

library(xtable)
library(printr)
library(knitr)
library(dplyr)

df_one = data.frame(column_one = c(1:10), column_two = c(11:20))

bold = function(x) {paste('{\\textbf{',x,'}}', sep ='')}
spaces = function(x){gsub("\\."," ",x)} # THIS IS NOT USED

colnames(df_one) = c('Column one', 'Column two')

print(xtable(df_one, type = 'latex', caption ='My test dataframe', label ='tab:mydataframe', align='lll', digits = 5), caption.placement ='top', include.rownames = FALSE, table.placement = '!h', sanitize.colnames.function = bold)
@
\end{document}