Global adegpar in functions with default graphical parameters

[aursiber]

Some functions which have default graphical parameters (see in prepare methods) don't take into account the parameters that were previously modified with the adegpar function.

library(ade4)
library(adegraphics)
data(rpjdl, package = "ade4")
fau.coa <- ade4::dudi.coa(rpjdl$fau, scan = FALSE, nf = 3)

s.value(fau.coa$li, fau.coa$li[,3], ppoints.cex = 0.5)
s.value(fau.coa$li, fau.coa$li[,3], ppoints.cex = 2)

op <- adegpar()
adegpar(ppoints.cex = 2)
s.value(fau.coa$li, fau.coa$li[,3])
adegpar(op)

s.value(fau.coa$li, fau.coa$li[,3], ppoints.cex = 2)