如何在R中抑制“忽略SIGPIPE信号”错误信息？

Question

我有以下文件。

• main.R

  x=data.frame(x=seq_len(100000))
  write.table(x, file=stdout(), row.names=F, col.names=F)
  

• main.sh

  #!/usr/bin/env bash
  
  Rscript main.R | head
  

我收到以下错误ignoring SIGPIPE signal。这违反了常见的Linux约定（通常忽略SIGPIPE信号）。有没有办法在R？

中禁用此类错误消息

$ ./main.sh
R> # vim: set noexpandtab tabstop=2:
R> x=data.frame(x=seq_len(100000))
R> write.table(x, file=stdout(), row.names=F, col.names=F)
1
2
3
4
5
6
7
Error in .External2(C_writetable, x, file, nrow(x), p, rnames, sep, eol,  : 
  ignoring SIGPIPE signal
Calls: write.table
Execution halted