Applied Statistics and Data Mining

文書の過去の版を表示しています。

これはただのラッパー。

set.proxy = function(proxy) {
  if( is.list(proxy) ) {
      Sys.setenv("http_proxy"=proxy$http)
      Sys.setenv("https_proxy"=proxy$https)
      Sys.setenv("ftp_proxy"=proxy$ftp)
      return(TRUE)
  } 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.vector) {
      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(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")