Just a simple access to the gp$cex parameter
prGetTextGrobCex(x)
x
The text-grob of interest
numeric The cex value, 1 if no cex was present
numeric