Ausgabe einer Funktion unterdrücken

90

Ich möchte die Ausgabe eines Befehls (in diesem Fall der applyFunktion) unterdrücken .

Ist es möglich, dies ohne Verwendung zu tun sink()? Ich habe die unten beschriebene Lösung gefunden, möchte dies aber nach Möglichkeit in einer Zeile tun.

So unterdrücken Sie die Ausgabe

r

— Tor
quelle

2

Können Sie erklären, was Sie unter "Inline machen" verstehen? Andernfalls liefert die von Ihnen zitierte Frage bereits die Antwort, und dies ist ein Duplikat.

— Dirk Eddelbuettel

1

Diese Lösung erfordert drei Zeilen, eine Umleitungsausgabe, den Befehl und eine weitere, um die Ausgabe wieder einzuschalten.

— Tor

Es ist immer noch eine doppelte Frage.

— Dirk Eddelbuettel

8

Oder verwenden capture.output. Oder verwenden Sie *_plyaus dem Plyr-Paket.

— Hadley

1

Ich lapplystimme Hadleys Vorschlag zu: Wenn Sie wirklich versuchen, eine Apply- Funktion auszuführen, z. B. ohne Druckausgabe, ist 'l_ply' aus seinem plyrPaket wahrscheinlich die am besten geeignete Wahl.

— Sharpie

90

Es ist nicht klar, warum Sie dies ohne tun möchten sink, aber Sie können alle Befehle in die invisible()Funktion einschließen und die Ausgabe wird unterdrückt. Zum Beispiel:

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

Andernfalls können Sie die Dinge immer in einer Zeile mit einem Semikolon und Klammern kombinieren:

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

— Shane
quelle

4

Versuchen Sie 'unsichtbar (Katze ("Hi \ n"))' - invisible()unterdrückt nur den Druck eines Ausdrucks, es ist kein sink()Einzeiler.

— Dirk Eddelbuettel

2

Richtig, aber ich denke, dass es die Bedürfnisse des Fragestellers erfüllt, es sei denn, ich vermisse etwas in der Frage ...

— Shane

1

Dies unterdrückt beispielsweise die Rückgabe von applygemäß der Frage : invisible(apply(matrix(1:10), 1, as.numeric)).

— Shane

Anstatt dass { sink("/dev/null"); ....; sink(); }ich es definitiv vorziehen würde capture.output, wie capture.outputgenau oben, nur viel besser (schauen Sie sich die Quelle an, sie nennt sink wie oben, plus ein paar nette Sachen).

— Cookie

2

funktioniert nicht idwunter Windows. Ich denke, die beste Lösung ist die Verwendung vonsink

— TMS

56

Verwenden Sie die capture.output()Funktion. Es funktioniert sehr ähnlich wie ein Einzelstück sink()und kann im Gegensatz invisible()dazu mehr als nur das Drucken von Nachrichten unterdrücken. Setzen Sie das Dateiargument /dev/nullunter UNIX oder NULunter Windows. Zum Beispiel unter Berücksichtigung von Dirks Anmerkung:

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

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

— Sharpie
quelle

10

funktioniert nicht, wenn Sie dies auf eine Funktion anwenden möchten, die einen Wert zurückgibt, und Sie diesen Wert verwenden möchten

— TMS

8

@TMS Hat sich in den letzten Monaten etwas geändert? Ich habe gerade getestet, um den von einer Funktion zurückgegebenen Wert zu verwenden, und es hat funktioniert ... capture.output(x <- log(2))und danach xhat es den Wert von log(2)...

— drmariod

10

Sie können 'capture.output' wie unten verwenden. Auf diese Weise können Sie die Daten später verwenden:

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

test$betas

— Kristy
quelle

9

R druckt nur automatisch die Ausgabe nicht zugewiesener Ausdrücke. Weisen Sie also einfach das Ergebnis von applyeiner Variablen zu, und es wird nicht gedruckt.

— Aniko
quelle

4

Einige Funktionen haben ein print()oder cat()in sich, das auf den Bildschirm geht, nicht auf eine Zuordnung.

— Keithpjolley

6

Die folgende Funktion sollte genau das tun, was Sie wollen:

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

Zum Beispiel mit der Funktion hier:

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

Laufen

x = hush(foo())

Weist x 42 zu, druckt aber nicht "BAR!" zu STDOUT

Beachten Sie, dass Sie unter einem UNIX-Betriebssystem "NUL" durch "/ dev / null" ersetzen müssen.

— Danny
quelle

Dies war die einzige Antwort, die das tat, was ich brauchte, unterschätzt.

— Tomka

genau das, was ich auch brauchte

— gaspar

1

Hadleys Kommentar zu einer Antwort machen (hoffe, sie besser sichtbar zu machen). Die Verwendung der Apply-Familie ohne Druck ist bei Verwendung des plyrPakets möglich

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

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

^{Erstellt am 2020-05-19 durch das reprex-Paket (v0.3.0)}

— Tjebo
quelle

0

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))

erzeugt eine Ausgabe ohne NULL am Ende der Zeile oder in der nächsten Zeile

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

— Bryan King
quelle

0

Falls jemand hier ankommt und nach einer Lösung für RMarkdown sucht, werden alle Ausgaben unterdrückt:

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

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


})})
```

Der Code wird ausgeführt, aber die Ausgabe wird nicht in das HTML-Dokument gedruckt

— stevec
quelle