op <- options(warn=0)  #although doesn't work for any value of warn
assign("last.warning", NULL, envir = baseenv())  
thisDoesntWork<- function() {
warning("HEY, this is definitely a warning!")
cat(paste("number of warnings:",length(warnings())))
}   
>thisDoesntWork()
Warning in thisDoesntWork() : HEY, this is definitely a warning!
number of warnings: 0

El número de advertencias debe ser 1 en lugar de 0: parece quewarnings() no devuelve nada si se llama dentro de una función. ¿Por qué? ¿Cómo se puede evitar esto para verificar dentro de una función si se produjeron advertencias e imprimirlas?

No quiero usartryCatch, porque luego pierdo el valor que devuelve la función (aún puede devolver un valor válido, incluso si generó una advertencia).