Início / coding / Perguntas / 78800959
Accepted
user18894435
Asked: 2024-07-27 17:06:44 +0800 CST

Comprima qualquer número de mensagens de aviso em uma

  • 772

De ?options, a descrição do warnreferido

Se foram sinalizados 10 ou menos avisos, eles serão impressos, caso contrário será exibida uma mensagem informando quantos foram sinalizados.

Portanto, se houver mais de 10 avisos, eles serão compactados em uma mensagem. Por exemplo:

f <- function() {
  warning("warn 1")
  warning("warn 2")
  warning("warn 3")
  warning("warn 4")
  warning("warn 5")
  warning("warn 6")
  warning("warn 7")
  warning("warn 8")
  warning("warn 9")
  warning("warn 10")
  warning("warn 11")
  return(1)
}

f()

[1] 1
Houve 11 avisos (use warnings() para vê-los)

Como posso reduzir o limite de 10 para 1? Ou seja, mesmo que eu tenha apenas um aviso, espero que ele apareça

Houve 1 aviso (use warnings() para vê-los)

1 respostas

  1. Best Answer

    Não foi possível encontrar uma opção para definir globalmente esse limite para um valor personalizado (pode ser uma boa solicitação de recurso que você poderia discutir no r-devel). Em vez disso, você poderia usar uma função wrapper para resumir os avisos quando necessário. Precisaríamos de um ambiente já que --- por um bom motivo --- 'last.warning'é somente leitura.

    W <- \(FUN) {
  env <- new.env()
  env$w_lst <- list()  ## empty warning list to increment
  res <- withCallingHandlers(FUN, warning=\(w) {
    env$w_lst <- c(env$w_lst, list(w))
    invokeRestart('muffleWarning')
  })
  n <- length(env$w_lst)  ## count warnings
  if (n > 0) {
    more <- (n > 1L) + 1L
    msg <- sprintf('There %s %s warning%s (use warnings2() to see %s)',
                   switch(more, 'was', 'were'),
                   n,
                   switch(more, '', 's'),
                   switch(more, 'it', 'them')
    )
    message('Warning: ', msg)
    assign('last.warning', env$w_lst, envir=warn_env)  ## assign warnings to env
  }
  res
}
## alternative warnings function
warnings2 <- \() {
  if (exists("last.warning", envir=warn_env)) {
    w_lst <- get("last.warning", envir=warn_env)
    for (i in seq_along(w_lst)) {
      message(sprintf('Warning %d: %s', i, conditionMessage(w_lst[[i]])))
    }
  } else {
    base::warnings()
  }
}


    > warn_env <- new.env()  ## create env for 'last.waning'
> 
> W(f(0))
[1] 1
> W(f(1))
Warning: There was 1 warning (use warnings2() to see it)
[1] 1
> W(f(2))
Warning: There were 2 warnings (use warnings2() to see them)
[1] 1
> W(f(11))
Warning: There were 11 warnings (use warnings2() to see them)
[1] 1
> 
> warnings2()
Warning 1: foo
Warning 2: foo
Warning 3: foo
Warning 4: foo
Warning 5: foo
Warning 6: foo
Warning 7: foo
Warning 8: foo
Warning 9: foo
Warning 10: foo
Warning 11: foo

    Dados:

    f <- \(n) {
  replicate(n, warning('foo'))
  return(1)
}
    • 2

relate perguntas