Roman numerical output

I have integers and I want R to give them back/output as Roman numerals:
s=c(7,17)
format(s,roman=T)
is obviously wrong. Is there any other way/function to do this?
Thanks,
Thomas