文書の過去の版を表示しています。
これはただのラッパー。
set.proxy = function(proxy) { if( is.list(proxy) ) { if(length(setdiff(names(proxy), c("http", "https", "ftp"))) == 0 ) { Sys.setenv("http_proxy"=proxy$http) Sys.setenv("https_proxy"=proxy$https) Sys.setenv("ftp_proxy"=proxy$ftp) return(TRUE) } else { return(FALSE) } } else if (is.vector(proxy)) { if( length(proxy) == 3 ) { Sys.setenv("http_proxy"=proxy[1]) Sys.setenv("https_proxy"=proxy[2]) Sys.setenv("ftp_proxy"=proxy[3]) return(TRUE) } else if (is.character(proxy[1])) { Sys.setenv("http_proxy"=proxy[1]) Sys.setenv("https_proxy"=proxy[1]) Sys.setenv("ftp_proxy"=proxy[1]) return(TRUE) } else { return(FALSE) } } else if (is.character(proxy)) { Sys.setenv("http_proxy"=proxy) Sys.setenv("https_proxy"=proxy) Sys.setenv("ftp_proxy"=proxy) return(TRUE) } return(FALSE) }
使用法は次のとおり。
set.proxy(list(http="http://proxy.uec.ac.jp:8080", https="http://proxy.uec.ac.jp:8080", ftp="http://proxy.uec.ac.jp:8080"))
set.proxy(c("http://proxy.uec.ac.jp:8080", "http://proxy.uec.ac.jp:8080", "http://proxy.uec.ac.jp:8080"))
set.proxy("http://proxy.uec.ac.jp:8080")