내가 쓰는 맥용 .Rprofile

작성일자 글쓴이

금일 서울대학교 강좌를 진행하면서 필자 맥북의 .Rprofile공유를 요청하셔서 이렇게 올려본다.
아래 스크립트의 앞부분은 링크에서 설명을 하지만 맥에서 기본 그래픽 디바이스인 quartz디바이스의 한글 설정을 해주는 스크립트 이다.

그리고 마지막 라인은 자바 설정으로 KoNLP를 맥에서 사용할때 권장하는 설정 내용이다. 물론 다른 OS에서도 설정해주면 좋다. -Xmx8g부분은 본인의 시스템 메모리를 고려해서 적당하게 설정하면 된다.

stringsAsFactors 부분은 데이터를 읽어들일때 R이 임의로 문자열을 factor로 변환시켜 골탕을 먹이는 일이 종종일어나는데 R임의대로 변환을 시키지 말라는 명령어다. 

#https://stat.ethz.ch/pipermail/r-sig-mac/2009-October/006731.html
setHook(packageEvent("grDevices", "onLoad"),
        function(...){
        if(capabilities("aqua"))
            grDevices::quartzFonts(
              sans =grDevices::quartzFont(rep("AppleGothic",4)),
              serif=grDevices::quartzFont(rep("AppleMyungjo",4)))
        grDevices::pdf.options(family="Korea1")
        grDevices::ps.options(family="Korea1")
        }
)
attach(NULL, name = "KoreaEnv")
assign("familyset_hook",
       function() {
            macfontdevs=c("quartz","quartz_off_screen")
            devname=strsplit(names(dev.cur()),":")[[1L]][1]
            if (capabilities("aqua") &&
                devname %in% macfontdevs)
                    par(family="sans")
       },
       pos="KoreaEnv")
setHook("plot.new", get("familyset_hook", pos="KoreaEnv"))
setHook("persp", get("familyset_hook", pos="KoreaEnv"))




options(prompt = "R > ")

options(stringsAsFactors=FALSE)

options(java.parameters=c("-Xmx8g", "-Dfile.encoding=UTF-8"))

CC BY-NC 4.0 내가 쓰는 맥용 .Rprofile by from __future__ import dream is licensed under a Creative Commons Attribution-NonCommercial 4.0 International License.