我怎样才能将 R 循环的所有输出都集中到 pdftk 的一行中？

Question

我正在创建一个小册子打印工作流程，在打开的跨页上打印 2 页：

1. 使用 R 创建页面序列
2. 使用 pdftk 对 pdf 重新分页
3. 使用 lp 打印 2-up 小册子

我已经编写了一个 R 脚本，用于为小册子/骑马订序列重新分页 pdf。对于 8 页的小册子，打印顺序应为“8 1 2 7 6 3 4 5”。我可以在下面的循环中创建序列，但不知道如何将它输出到一行中，每个页码用空格分隔。

p <- 16  # number of pages in a saddle stitch, multiple of 4
p.seq <- c(1:p) # page sequence
p2 <- p/2

for(i in 1:p2){
  ifelse(p.seq[i] %% 2 == 0, # true if even number
    print(paste(i, p-i+1, sep=" ")),
    print(paste(p-i+1, i, sep=" "))
    )
}   

尝试使用

cat(..., append=TRUE)

而不是

print

，但这会停止循环。