Ozone_Braille_Windows_2.R

#Sys.setenv(R_GSCMD="C:/Program\ Files/gs/gs9.16/bin/gswin64c.exe")

library("extrafont")

# since you already have the font installed on the system, you don't
need the following
#font_import(pattern="BRAILLE1.ttf",
paths="C:/Users/jzs/Downloads/fonts", prompt=FALSE)

# the following enable PDF files to use the installed fonts
loadfonts()

# produce the PDF
pdf("C:/Users/jzs/Dropbox/StatData/output.pdf")
Ozone=airquality$Ozone
par(cex=1.2, cex.lab=1.5, cex.axis=1.5, mar=c(5,5,3,2), family="Braille Normal")
plot(Ozone, main="Test", pch=20)
#boxplot(Ozone, main="Test", family="Braille Normal")
dev.off()

# embed the font
Sys.setenv(R_GSCMD="C:/Program\ Files/gs/gs9.16/bin/gswin64c.exe")
embed_fonts("C:/Users/jzs/Dropbox/StatData/output.pdf")
# code ends here