Suprime a saída de uma função

Question 1

Estou tentando suprimir a saída de um comando (neste caso, a applyfunção).

É possível fazer isso sem usar sink()? Encontrei a solução descrita abaixo, mas gostaria de fazer isso em uma linha, se possível.

Como suprimir a saída

Question 2

Não está claro por que você deseja fazer isso sem sink, mas você pode agrupar quaisquer comandos na invisible()função e isso suprimirá a saída. Por exemplo:

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

Caso contrário, você sempre pode combinar as coisas em uma linha com um ponto e vírgula e parênteses:

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

Question 3

Use a capture.output()função. Funciona de forma muito semelhante a uma única sink()e invisible(), ao contrário , pode suprimir mais do que apenas imprimir mensagens. Defina o argumento do arquivo como /dev/nullno UNIX ou NULno Windows. Por exemplo, considerando a nota de Dirk:

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

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

Question 4

você pode usar 'capture.output' como abaixo. Isso permite que você use os dados mais tarde:

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

test$betas

Question 5

A função a seguir deve fazer exatamente o que você deseja:

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

Por exemplo, com a função aqui:

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

corrida

x = hush(foo())

Irá atribuir 42 ax, mas não imprimirá "BAR!" para STDOUT

Observe que em um sistema operacional UNIX você precisará substituir "NUL" por "/ dev / null"

Question 6

R apenas imprime automaticamente a saída de expressões não atribuídas, então apenas atribua o resultado de a applyuma variável e ele não será impresso.

Question 7

No caso de alguém chegar aqui em busca de uma solução aplicável ao RMarkdown, isso irá suprimir todos os resultados:

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

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


})})
```

O código será executado, mas a saída não será impressa no documento HTML

Question 8

Fazendo o comentário de Hadley a uma resposta (espero torná-lo mais visível). O uso da família de aplicação sem impressão é possível com o uso da plyrembalagem

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

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

^{Criado em 2020-05-19 pelo pacote 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))

produz saída sem NULL no final da linha ou na próxima linha

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

91

Estou tentando suprimir a saída de um comando (neste caso, a applyfunção).

É possível fazer isso sem usar sink()? Encontrei a solução descrita abaixo, mas gostaria de fazer isso em uma linha, se possível.

Como suprimir a saída

r Tor
fonte

2

Você pode explicar o que quer dizer com 'fazer isso embutido'? Caso contrário, a pergunta que você cita já fornece a resposta e esta é uma duplicata.

Dirk Eddelbuettel

1

Essa solução requer três linhas, uma redirecionando a saída, o comando e outra para reativar a saída.

Tor

8

Ou use capture.output. Ou use *_plydo pacote plyr.

hadley

1

Eu concordo com a sugestão de Hadley - se você está realmente tentando executar uma função de aplicação, como lapply, sem imprimir a saída, então 'l_ply' de seu plyrpacote é provavelmente a escolha mais apropriada.

Sharpie

Answer 2

2

Você pode explicar o que quer dizer com 'fazer isso embutido'? Caso contrário, a pergunta que você cita já fornece a resposta e esta é uma duplicata.

Dirk Eddelbuettel

Answer 3

1

Essa solução requer três linhas, uma redirecionando a saída, o comando e outra para reativar a saída.

Tor

Answer 4

8

Ou use capture.output. Ou use *_plydo pacote plyr.

hadley

Answer 5

1

Eu concordo com a sugestão de Hadley - se você está realmente tentando executar uma função de aplicação, como lapply, sem imprimir a saída, então 'l_ply' de seu plyrpacote é provavelmente a escolha mais apropriada.

Sharpie

Answer 6

93

Não está claro por que você deseja fazer isso sem sink, mas você pode agrupar quaisquer comandos na invisible()função e isso suprimirá a saída. Por exemplo:

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

Caso contrário, você sempre pode combinar as coisas em uma linha com um ponto e vírgula e parênteses:

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

Shane
fonte

5

Tente 'invisível (cat ("Hi \ n"))' - invisible()apenas suprime a impressão de uma expressão, não é uma linha sink()única.

Dirk Eddelbuettel

2

Certo, mas acho que atende às necessidades do questionador, a menos que esteja faltando alguma coisa na pergunta ...

Shane

1

Por exemplo, este suprime o retorno de apply, de acordo com a pergunta: invisible(apply(matrix(1:10), 1, as.numeric)).

Shane

Ao invés de { sink("/dev/null"); ....; sink(); }eu definitivamente preferir capture.output, como capture.outputefetivamente faz exatamente acima, apenas muito melhor (dê uma olhada na fonte, ele chama de sink como acima, além de algumas coisas legais em torno dele).

Cookie de

3

não funciona em idwfunção no Windows. Acho que a melhor solução é usarsink

TMS

Answer 7

5

Tente 'invisível (cat ("Hi \ n"))' - invisible()apenas suprime a impressão de uma expressão, não é uma linha sink()única.

Dirk Eddelbuettel

Answer 8

2

Certo, mas acho que atende às necessidades do questionador, a menos que esteja faltando alguma coisa na pergunta ...

Shane

Answer 9

1

Por exemplo, este suprime o retorno de apply, de acordo com a pergunta: invisible(apply(matrix(1:10), 1, as.numeric)).

Shane

Answer 10

Ao invés de { sink("/dev/null"); ....; sink(); }eu definitivamente preferir capture.output, como capture.outputefetivamente faz exatamente acima, apenas muito melhor (dê uma olhada na fonte, ele chama de sink como acima, além de algumas coisas legais em torno dele).

Cookie de

Answer 11

3

não funciona em idwfunção no Windows. Acho que a melhor solução é usarsink

TMS

Answer 12

58

Use a capture.output()função. Funciona de forma muito semelhante a uma única sink()e invisible(), ao contrário , pode suprimir mais do que apenas imprimir mensagens. Defina o argumento do arquivo como /dev/nullno UNIX ou NULno Windows. Por exemplo, considerando a nota de Dirk:

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

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

Sharpie
fonte

10

não funciona se você deseja aplicar isso a uma função que retorna algum valor e deseja usar este valor

TMS

8

@TMS Algo mudou durante o último mês? Acabei de testar usar o valor retornado por uma função e funcionou ... capture.output(x <- log(2))e depois xtem o valor de log(2)...

drmariod

Answer 13

10

não funciona se você deseja aplicar isso a uma função que retorna algum valor e deseja usar este valor

TMS

Answer 14

8

@TMS Algo mudou durante o último mês? Acabei de testar usar o valor retornado por uma função e funcionou ... capture.output(x <- log(2))e depois xtem o valor de log(2)...

drmariod

Answer 15

você pode usar 'capture.output' como abaixo. Isso permite que você use os dados mais tarde:

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

test$betas

Answer 16

10

A função a seguir deve fazer exatamente o que você deseja:

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

Por exemplo, com a função aqui:

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

corrida

x = hush(foo())

Irá atribuir 42 ax, mas não imprimirá "BAR!" para STDOUT

Observe que em um sistema operacional UNIX você precisará substituir "NUL" por "/ dev / null"

Danny
fonte

Esta foi a única resposta que fez o que eu precisava, subestimada.

tomka

exatamente o que eu precisava também

gaspar

Answer 17

Esta foi a única resposta que fez o que eu precisava, subestimada.

tomka

Answer 18

exatamente o que eu precisava também

gaspar

Answer 19

9

R apenas imprime automaticamente a saída de expressões não atribuídas, então apenas atribua o resultado de a applyuma variável e ele não será impresso.

Aniko
fonte

4

Algumas funções têm um print()ou cat()que vai para a tela, não para uma atribuição.

keithpjolley

Answer 20

4

Algumas funções têm um print()ou cat()que vai para a tela, não para uma atribuição.

keithpjolley

Answer 21

No caso de alguém chegar aqui em busca de uma solução aplicável ao RMarkdown, isso irá suprimir todos os resultados:

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

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


})})
```

O código será executado, mas a saída não será impressa no documento HTML

Answer 22

Fazendo o comentário de Hadley a uma resposta (espero torná-lo mais visível). O uso da família de aplicação sem impressão é possível com o uso da plyrembalagem

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

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

^{Criado em 2020-05-19 pelo pacote 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))

produz saída sem NULL no final da linha ou na próxima linha

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

Suprime a saída de uma função

Respostas: