options(CRAN="http://cran.ism.ac.jp")
if (capabilities("aqua")) {
  options(device="quartz")
}
setHook(packageEvent("grDevices", "onLoad"),
        function(...) {
          if (.Platform$OS.type == "windows")
            grDevices::windowsFonts(sans ="MS Gothic",
                                    serif="MS Mincho",
                                    mono ="FixedFont")
          if (capabilities("aqua"))
            grDevices::quartzFonts(
              sans=grDevices::quartzFont(
                c("Hiragino Kaku Gothic ProN W3",
                  "Hiragino Kaku Gothic ProN W6",
                  "Hiragino Kaku Gothic ProN W3",
                  "Hiragino Kaku Gothic ProN W6")),
              serif=grDevices::quartzFont(
                c("Hiragino Mincho ProN W3",
                  "Hiragino Mincho ProN W6",
                  "Hiragino Mincho ProN W3",
                  "Hiragino Mincho ProN W6")))
          # if (capabilities("X11"))
          #     grDevices::X11.options(
          #         fonts=c("-kochi-gothic-%s-%s-*-*-%d-*-*-*-*-*-*-*",
          #                 "-adobe-symbol-medium-r-*-*-%d-*-*-*-*-*-*-*"))
          grDevices::pdf.options(family="Japan1GothicBBB")
          grDevices::ps.options(family="Japan1GothicBBB")
        }
        )
attach(NULL, name = "JapanEnv")
assign("familyset_hook",
       function() {
         winfontdevs=c("windows","win.metafile",
                       "png","bmp","jpeg","tiff","RStudioGD")
         macfontdevs=c("quartz","quartz_off_screen","RStudioGD")
         devname=strsplit(names(dev.cur()),":")[[1L]][1]
         if ((.Platform$OS.type == "windows") &&
           (devname %in% winfontdevs))
           par(family="sans")
         if (capabilities("aqua") &&
           devname %in% macfontdevs)
           par(family="sans")
       },
       pos="JapanEnv")
setHook("plot.new", get("familyset_hook", pos="JapanEnv"))
setHook("persp", get("familyset_hook", pos="JapanEnv"))

# library("extrafont")
# library("tools")
# library("RColorBrewer")
# if (.Platform$OS.type == "windows") Sys.setenv(R_GSCMD = find_gs_cmd(gs_cmd = ""))

# library("reticulate")