if (FALSE) # Windows-specific example
wrd <- GetNewWrd()
for(i in seq(10, 24, 2))
ToWrd(gettextf("This is Arial size %s \n", i), font=list(name="Arial", size=i))
for(i in seq(10, 24, 2))
ToWrd(gettextf("This is Times size %s \n", i), font=list(name="Times", size=i))
Run the code above in your browser using DataLab