Valores de defualt calculados em parâmetros de função r
fun <- function(x,levels=levels(x)){
blah blah blah
}
Tense Turtle
fun <- function(x,levels=levels(x)){
blah blah blah
}
fun <- function(x,y=getOption('fun.y','initialDefault')){# or getOption('pkg.fun.y',defaultValue)
blah blah blah
}