R Shiny：使用write.table生成指定列头文本文件的问题

嘿，你的问题很典型——问题出在你用paste()把三个输入值拼成了单个字符串，这就导致write.table()只把它当成一列来处理，自然没法对应你设置的三个列头啦！

问题根源 #

你当前的代码里，paste(c(input$firstNum, input$secondNum, input$thirdNum), collapse = " | ")会生成一个类似"10 | 20 | 30"的单一字符串，它是长度为1的向量。当你把这个传给write.table()时，它只会识别为一行一列的数据，所以你设置的col.names = c("1st Number", "2nd Number", "3rd Number")根本无法匹配，自然得不到预期的多列结果。

正确的解决方案 #

你需要把三个输入值整理成数据框（data.frame），让每个输入对应一列，这样write.table()就能正确识别列结构并匹配列头了。修改后的代码如下：

# 先将输入值整理为数据框，列名直接对应你想要的标签
user_inputs <- data.frame(
  "1st Number" = input$firstNum,
  "2nd Number" = input$secondNum,
  "3rd Number" = input$thirdNum,
  stringsAsFactors = FALSE  # 避免自动转换为因子，可选但推荐
)

# 写入.txt文件，指定分隔符为" | "，按需设置行名
write.table(
  user_inputs, 
  filename, 
  quote = FALSE, 
  row.names = FALSE,  # 如果不需要行名就设为FALSE，需要的话改成TRUE
  sep = " | "         # 列之间的分隔符，和你之前的collapse一致
)

额外提示 #

• 如果需要每次用户输入都追加到文件末尾（而不是覆盖），可以在write.table()里加上append = TRUE参数。
• 如果你的输入可能有缺失值，建议先做简单的校验（比如用req(input$firstNum)确保输入不为空），避免写入无效数据。

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