[R] Do not show a "message d'avis" that qbeta reports

[Marc Girondot]

Dear R-helpers

Do you know how to not show a "message d'avis" that qbeta reports. 
suppressMessages and capture.output are not working.

(PS I Know that qbeta with shape2 being 1e-7 is "strange"... this is 
obtained during an optimization process. Just I don't want see the 
messages).

Thanks

Marc Girondot

q <- qbeta(p=c(0.025, 0.975), shape1 = 3.3108797, shape2 = 0.0000001)
Message d'avis :
Dans qbeta(p = c(0.025, 0.975), shape1 = 3.3108797, shape2 = 1e-07) :
   qbeta(a, *) =: x0 with |pbeta(x0,*) - alpha| = 0.024997 is not accurate

suppressMessages(q <- qbeta(p=c(0.025, 0.975), shape1 = 3.3108797, 
shape2 = 0.0000001))
Message d'avis :
Dans qbeta(p = c(0.025, 0.975), shape1 = 3.3108797, shape2 = 1e-07) :
   qbeta(a, *) =: x0 with |pbeta(x0,*) - alpha| = 0.024997 is not accurate

capture.output(q <- qbeta(p=c(0.025, 0.975), shape1 = 3.3108797, shape2 
= 0.0000001), type = "message")
character(0)
Message d'avis :
Dans qbeta(p = c(0.025, 0.975), shape1 = 3.3108797, shape2 = 1e-07) :
   qbeta(a, *) =: x0 with |pbeta(x0,*) - alpha| = 0.024997 is not accurate

capture.output(q <- qbeta(p=c(0.025, 0.975), shape1 = 3.3108797, shape2 
= 0.0000001), type = "output")
character(0)
Message d'avis :
Dans qbeta(p = c(0.025, 0.975), shape1 = 3.3108797, shape2 = 1e-07) :
   qbeta(a, *) =: x0 with |pbeta(x0,*) - alpha| = 0.024997 is not accurate