par.uin <- function() 
      par("pin") / {u <- par("usr"); c(diff(u[1:2]), diff(u[3:4]))}

#BTW: "uin" gives  ``inches per usr unit'' (not the reverse as you suggest).