title: R does not recognize GhostScript to embed eps plots
body: <p>I am trying to embed a .eps file for a journal publication requirements.</p>
  
  <p>I create my plot using ggplot2:</p>
  
  <pre><code>p=ggplot(data=sim, aes(x=TIME,y=DV,group=ID))+
    theme_few()+
    geom_point(aes(shape=as.factor(SEASON2)),size=3,fill="white")+
    geom_point(aes(color=as.factor(AGE2),shape=as.factor(SEASON2)),size=3,fill="white",show_guide=F)+
    scale_shape_manual(name="Season",values=c(25,24))+
    geom_line(aes(color=as.factor(AGE2),linetype=as.factor(MODEL2)),size=0.75)+
    scale_linetype_manual(name="Model [Population]",values=c("dotted","solid"))+
    scale_color_manual(name="Age",values=as.vector(c(ggthemes_data$few$medium[5],ggthemes_data$few$medium[4])))+
    theme(legend.position="bottom",legend.direction="vertical",legend.box="horizontal")+
    guides(color=guide_legend(order=1), shape=guide_legend(order=2), linetype=guide_legend(order=3))+
    xlab("Clock time [hours]")+
    ylab("Testosterone levels [ng/dL]")+
    geom_hline(yintercept=300,linetype="dashed",color="black")
  print(p)
  </code></pre>
  
  <p>And then, I generate the .eps</p>
  
  <pre><code>postscript(file.path(directory,"Script","Figure5.eps"),
             width=10,
             height=12.25,
             paper="a4",
             horizontal=T,
             onefile=TRUE)
  print(p)
  dev.off()
  </code></pre>
  
  <p>This .eps was not accepted for the online application when I tried to submit the plot because I have to make the fonts available to ADQ Advisor.</p>
  
  <p>In order to do that I used:</p>
  
  <pre><code>install.packages("extrafont")
  library("extrafont")
  font_import()
  fonts()
  loadfonts(device = "postscript") ## for postscript()
  
  embed_fonts("./Figure5.eps", outfile = "./Figure5-embed.eps", options = "-dEPSCrop")
  
  embedFonts(file="Figure5.eps",
            outfile="Figure5EMB.eps",
            options="-dEPSCrop")
  </code></pre>
  
  <p>Both of these functions failed and gave me the following error:</p>
  
  <p>Error in embedFonts(file = "Figure5.eps", outfile = "Figure5EMB.eps",  : 
    GhostScript was not found</p>
  
  <p>I have GhostScript 9.18 installed in the following path: C:\Program Files (x86)\gs\gs9.18</p>
  
  <p>Any suggestions?</p>