関数の出力を抑制します

1つのコマンド（この場合はapply関数）の出力を抑制しようとしています。

使用せずにこれを行うことは可能sink()ですか？以下に説明する解決策を見つけましたが、可能であれば1行でこれを実行したいと思います。

出力を抑制する方法

なぜこれを行わないのかは明確ではありませんがsink、invisible()関数内の任意のコマンドをラップすることができ、出力が抑制されます。例えば：

1:10 # prints output
invisible(1:10) # hides it

それ以外の場合は、セミコロンと括弧を使用して、いつでも1行にまとめることができます。

{ sink("/dev/null"); ....; sink(); }

capture.output()関数を使用します。これは1回限りのように機能しsink()、とは異なりinvisible()、メッセージの印刷以上のものを抑制することができます。/dev/nullUNIXまたはNULWindowsでfile引数をに設定します。たとえば、Dirkのメモを考えてみましょう。

> invisible(cat("Hi\n"))
Hi

> capture.output( cat("Hi\n"), file='NUL')
> 

以下のように「capture.output」を使用できます。これにより、後でデータを使用できるようになります。

log <- capture.output({
  test <- CensReg.SMN(cc=cc,x=x,y=y, nu=NULL, type="Normal")
})

test$betas

Rは、割り当てられていない式の出力のみを自動的に出力するため、の結果をapply変数に割り当てるだけで、出力されません。

次の関数は、必要なことを正確に実行する必要があります。

hush=function(code){
  sink("NUL") # use /dev/null in UNIX
  tmp = code
  sink()
  return(tmp)
}

たとえば、次の関数を使用します。

foo=function(){
  print("BAR!")
  return(42)
}

ランニング

x = hush(foo())

xに42を割り当てますが、「BAR！」は出力されません。STDOUTへ

UNIX OSの場合よりも、「NUL」を「/ dev / null」に置き換える必要があることに注意してください。

RMarkdownに適用可能なソリューションを探してここに到着した人がいる場合、これによりすべての出力が抑制されます。

```{r error=FALSE, warning=FALSE, message=FALSE}
invisible({capture.output({

# Your code goes here
2 * 2
# etc
# etc


})})
```

コードは実行されますが、出力はHTMLドキュメントに出力されません

回答に対するハドリーのコメントを作成する（より見やすくすることを望んでいます）。plyrパッケージを使用することで、印刷せずにアプライファミリーを使用することができます

x <- 1:2
lapply(x, function(x) x + 1)
#> [[1]]
#> [1] 2
#> 
#> [[2]]
#> [1] 3

plyr::l_ply(x, function(x) x + 1)

^{reprexパッケージ（v0.3.0）によって2020-05-19に作成されました}

invisible(cat("Dataset: ", dataset, fill = TRUE))
invisible(cat(" Width: " ,width, fill = TRUE))
invisible(cat(" Bin1:  " ,bin1interval, fill = TRUE))
invisible(cat(" Bin2:  " ,bin2interval, fill = TRUE))
invisible(cat(" Bin3:  " ,bin3interval, fill = TRUE))

行の終わりまたは次の行にNULLなしの出力を生成します

Dataset:  17 19 26 29 31 32 34 45 47 51 52 59 60 62 63
Width:  15.33333

Bin1:   17 32.33333
Bin2:   32.33333 47.66667
Bin3:   47.66667 63