Pomiń wyjście funkcji

Question 1

Chcę ukryć dane wyjściowe jednego polecenia (w tym przypadku applyfunkcji).

Czy można to zrobić bez użycia sink()? Opisane rozwiązanie znalazłem poniżej, ale chciałbym to zrobić w jednej linii, jeśli to możliwe.

Jak wyłączyć wyjście

Question 2

Nie jest jasne, dlaczego chcesz to zrobić bez sink, ale możesz zawijać dowolne polecenia w invisible()funkcji, a to zablokuje wyjście. Na przykład:

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

W przeciwnym razie zawsze możesz połączyć elementy w jedną linię za pomocą średnika i nawiasów:

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

Question 3

Użyj capture.output()funkcji. Działa bardzo podobnie jak jednorazowy sink()i w przeciwieństwie do invisible()tego, może tłumić więcej niż tylko drukować wiadomości. Ustaw argument plik na /dev/nullw systemie UNIX lub w systemie NULWindows. Na przykład, biorąc pod uwagę notatkę Dirka:

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

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

Question 4

możesz użyć „capture.output” jak poniżej. Umożliwia to późniejsze wykorzystanie danych:

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

test$betas

Question 5

R tylko automatycznie drukuje wyjście nieprzypisanych wyrażeń, więc po prostu przypisz wynik applyzmiennej do zmiennej, a nie zostanie on wydrukowany.

Question 6

Następująca funkcja powinna zrobić dokładnie to, co chcesz:

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

Na przykład z funkcją tutaj:

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

bieganie

x = hush(foo())

Przypisuje 42 do x, ale nie wypisuje "BAR!" do STDOUT

Uwaga niż w systemie UNIX trzeba będzie zamienić „NUL” na „/ dev / null”

Question 7

W przypadku, gdy ktoś przyjeżdża tutaj i szuka rozwiązania odpowiedniego dla RMarkdown, spowoduje to zablokowanie wszystkich danych wyjściowych:

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

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


})})
```

Kod zostanie uruchomiony, ale dane wyjściowe nie zostaną wydrukowane w dokumencie HTML

Question 8

Dodanie komentarza Hadley do odpowiedzi (mam nadzieję, że będzie ona lepiej widoczna). Korzystanie z rodziny aplikacyjnej bez nadruku jest możliwe przy użyciu plyrpakietu

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

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

^{Utworzona 2020-05-19 przez pakiet reprex (v0.3.0)}

Question 9

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

generuje wyjście bez wartości NULL na końcu wiersza lub w następnym wierszu

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

Answer 1

90

Chcę ukryć dane wyjściowe jednego polecenia (w tym przypadku applyfunkcji).

Czy można to zrobić bez użycia sink()? Opisane rozwiązanie znalazłem poniżej, ale chciałbym to zrobić w jednej linii, jeśli to możliwe.

Jak wyłączyć wyjście

r Słup
źródło

2

Czy możesz wyjaśnić, co masz na myśli, mówiąc „zrób to w tekście”? W przeciwnym razie pytanie, które cytujesz, zawiera już odpowiedź i jest to duplikat.

Dirk Eddelbuettel

1

To rozwiązanie wymaga trzech wierszy, jednego przekierowania wyjścia, polecenia, a następnie drugiego, aby ponownie włączyć wyjście.

Tor,

8

Lub użyj capture.output. Lub użyj *_plyz pakietu plyr.

hadley

1

Po drugie, sugestia Hadleya - jeśli naprawdę próbujesz wykonać funkcję stosującą, taką jak lapplybez drukowania wyniku, wówczas 'l_ply' z jego plyrpakietu jest prawdopodobnie najbardziej odpowiednim wyborem.

Sharpie

Answer 2

2

Czy możesz wyjaśnić, co masz na myśli, mówiąc „zrób to w tekście”? W przeciwnym razie pytanie, które cytujesz, zawiera już odpowiedź i jest to duplikat.

Dirk Eddelbuettel

Answer 3

1

To rozwiązanie wymaga trzech wierszy, jednego przekierowania wyjścia, polecenia, a następnie drugiego, aby ponownie włączyć wyjście.

Tor,

Answer 4

8

Lub użyj capture.output. Lub użyj *_plyz pakietu plyr.

hadley

Answer 5

1

Po drugie, sugestia Hadleya - jeśli naprawdę próbujesz wykonać funkcję stosującą, taką jak lapplybez drukowania wyniku, wówczas 'l_ply' z jego plyrpakietu jest prawdopodobnie najbardziej odpowiednim wyborem.

Sharpie

Answer 6

92

Nie jest jasne, dlaczego chcesz to zrobić bez sink, ale możesz zawijać dowolne polecenia w invisible()funkcji, a to zablokuje wyjście. Na przykład:

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

W przeciwnym razie zawsze możesz połączyć elementy w jedną linię za pomocą średnika i nawiasów:

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

Shane
źródło

5

Spróbuj 'invisible (cat ("Hi \ n"))' - invisible()tylko pomija drukowanie wyrażenia, nie jest to sink()jednowierszowe.

Dirk Eddelbuettel

2

Racja, ale myślę, że spełnia potrzeby pytającego, chyba że brakuje mi czegoś w pytaniu ...

Shane

1

Na przykład, ten tłumi zwrotu apply, jak na pytanie: invisible(apply(matrix(1:10), 1, as.numeric)).

Shane

Raczej { sink("/dev/null"); ....; sink(); }wolałbym capture.output, jak capture.outputskutecznie robi dokładnie powyżej, tylko o wiele lepiej (spójrz na źródło, nazywa się sink jak w powyższym stylu, plus kilka fajnych rzeczy wokół niego).

Cookie

3

nie działa na idwfunkcji w systemie Windows. Myślę, że najlepszym rozwiązaniem jest użyciesink

TMS

Answer 7

5

Spróbuj 'invisible (cat ("Hi \ n"))' - invisible()tylko pomija drukowanie wyrażenia, nie jest to sink()jednowierszowe.

Dirk Eddelbuettel

Answer 8

2

Racja, ale myślę, że spełnia potrzeby pytającego, chyba że brakuje mi czegoś w pytaniu ...

Shane

Answer 9

1

Na przykład, ten tłumi zwrotu apply, jak na pytanie: invisible(apply(matrix(1:10), 1, as.numeric)).

Shane

Answer 10

Raczej { sink("/dev/null"); ....; sink(); }wolałbym capture.output, jak capture.outputskutecznie robi dokładnie powyżej, tylko o wiele lepiej (spójrz na źródło, nazywa się sink jak w powyższym stylu, plus kilka fajnych rzeczy wokół niego).

Cookie

Answer 11

3

nie działa na idwfunkcji w systemie Windows. Myślę, że najlepszym rozwiązaniem jest użyciesink

TMS

Answer 12

58

Użyj capture.output()funkcji. Działa bardzo podobnie jak jednorazowy sink()i w przeciwieństwie do invisible()tego, może tłumić więcej niż tylko drukować wiadomości. Ustaw argument plik na /dev/nullw systemie UNIX lub w systemie NULWindows. Na przykład, biorąc pod uwagę notatkę Dirka:

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

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

Sharpie
źródło

10

nie działa, jeśli chcesz zastosować to do funkcji, która zwraca jakąś wartość i chcesz użyć tej wartości

TMS

8

@TMS Czy coś się zmieniło w ciągu ostatnich kilku miesięcy? Właśnie przetestowałem, aby użyć wartości zwróconej przez funkcję i zadziałało ... capture.output(x <- log(2))a potem xma wartość log(2)...

drmariod

Answer 13

10

nie działa, jeśli chcesz zastosować to do funkcji, która zwraca jakąś wartość i chcesz użyć tej wartości

TMS

Answer 14

8

@TMS Czy coś się zmieniło w ciągu ostatnich kilku miesięcy? Właśnie przetestowałem, aby użyć wartości zwróconej przez funkcję i zadziałało ... capture.output(x <- log(2))a potem xma wartość log(2)...

drmariod

Answer 15

możesz użyć „capture.output” jak poniżej. Umożliwia to późniejsze wykorzystanie danych:

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

test$betas

Answer 16

9

R tylko automatycznie drukuje wyjście nieprzypisanych wyrażeń, więc po prostu przypisz wynik applyzmiennej do zmiennej, a nie zostanie on wydrukowany.

Aniko
źródło

4

Niektóre funkcje mają w sobie znak print()lub, cat()który przechodzi do ekranu, a nie do przypisania.

keithpjolley

Answer 17

4

Niektóre funkcje mają w sobie znak print()lub, cat()który przechodzi do ekranu, a nie do przypisania.

keithpjolley

Answer 18

9

Następująca funkcja powinna zrobić dokładnie to, co chcesz:

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

Na przykład z funkcją tutaj:

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

bieganie

x = hush(foo())

Przypisuje 42 do x, ale nie wypisuje "BAR!" do STDOUT

Uwaga niż w systemie UNIX trzeba będzie zamienić „NUL” na „/ dev / null”

Danny
źródło

To była jedyna odpowiedź, która zrobiła to, czego potrzebowałem, niedoceniana.

tomka

dokładnie to, czego potrzebowałem

gaspar

Answer 19

To była jedyna odpowiedź, która zrobiła to, czego potrzebowałem, niedoceniana.

tomka

Answer 20

dokładnie to, czego potrzebowałem

gaspar

Answer 21

W przypadku, gdy ktoś przyjeżdża tutaj i szuka rozwiązania odpowiedniego dla RMarkdown, spowoduje to zablokowanie wszystkich danych wyjściowych:

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

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


})})
```

Kod zostanie uruchomiony, ale dane wyjściowe nie zostaną wydrukowane w dokumencie HTML

Answer 22

Dodanie komentarza Hadley do odpowiedzi (mam nadzieję, że będzie ona lepiej widoczna). Korzystanie z rodziny aplikacyjnej bez nadruku jest możliwe przy użyciu plyrpakietu

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

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

^{Utworzona 2020-05-19 przez pakiet reprex (v0.3.0)}

Answer 23

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

generuje wyjście bez wartości NULL na końcu wiersza lub w następnym wierszu

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

Pomiń wyjście funkcji

Odpowiedzi: