[R] text() with text, variables and math HOWTO?

[Johannes Graumann]

Hello,

One more question from the 'abusing R for blotting - particularly
anally' department:
How can I in the expression below make the '%~~%' show up as the
aprrox-sign I want it to be?

Thanks for any hint,

Joh

text(
	500,1.5,
	cex=0.75,
	substitute(
		paste(
			OD[600][~nm],
			" of 1 at ",
			time1,
			" min ",
			"%~~%",
			time1h,
			"h"
		),
		list(
			time1=round(time1,digits=0),
			time1h=round(time1/60,digits=1)
		)
	)
)