(r = getOption("repos"))
## CRAN ## "@CRAN@"
r["CRAN"] = "http://cran.seoul.go.kr" options(repos = r) rm(r)