R：直接从网站读取.DAT文件时出错

我正试图直接从读取

.DAT

文件，并出现以下错误：

abdomen <- read.table("https://www2.stat.duke.edu/courses/Spring03/sta113/Data/Hand/abdomen.dat")

Error in file(file, "rt") : 
  cannot open the connection to 'https://www2.stat.duke.edu/courses/Spring03/sta113/Data/Hand/abdomen.dat'
In addition: Warning messages:
1: In eval(formal.args[[as.character(substitute(arg))]], envir = sys.frame(sysP)) :
  closing unused connection 4 (https://www2.stat.duke.edu/courses/Spring03/sta113/Data/Hand/abdomen.dat)
2: In file(file, "rt") :
  URL 'https://www2.stat.duke.edu/courses/Spring03/sta113/Data/Hand/abdomen.dat': status was 'Peer certificate cannot be authenticated with given CA certificates'

---

您很可能被（公司？）防火墙阻止。确保代理设置正常工作

从我自己的答案中盗取一个：

##获取代理设置
系统（“netsh winhttp显示代理”）
Sys.setenv（HTTP\u PROXY=，HTTPS\u PROXY=）
您很可能被（公司？）防火墙阻止。确保代理设置正常工作

从我自己的答案中盗取一个：

##获取代理设置
系统（“netsh winhttp显示代理”）
Sys.setenv（HTTP\u PROXY=，HTTPS\u PROXY=）
read.table和
read.table都没有这样的错误
abdomen <- read.table(url("https://www2.stat.duke.edu/courses/Spring03/sta113/Data/Hand/abdomen.dat"))
Error in open.connection(file, "rt") : 
  cannot open the connection to 'https://www2.stat.duke.edu/courses/Spring03/sta113/Data/Hand/abdomen.dat'
In addition: Warning message:
In open.connection(file, "rt") :
  URL 'https://www2.stat.duke.edu/courses/Spring03/sta113/Data/Hand/abdomen.dat': status was 'Peer certificate cannot be authenticated with given CA certificates'

## get the proxy settings
system("netsh winhttp show proxy")
Sys.setenv(HTTP_PROXY = <the proxy from netsh>, HTTPS_PROXY = <the proxy from netsh>)