我正在尝试从我公司的 Intranet 共享点读取数据。
require(httr)
url <- "http://<domain>/<path>/_vti_bin/ListData.svc/<something>"
r <- GET(url)
问题是，对 Sharepoint 的访问使用 Windows 身份验证。上面的，预期，给了我 401 Unauthorized 错误。
如何将我的 Windows 身份验证合并到 R 中的请求中，而无需在 GET 参数中以明文形式输入我的凭据？ （使用 authenticate() 和我的凭据确实有效）。
【问题讨论】：
httr包中的authenticate()函数吗？
标签： r sharepoint windows-authentication
authenticate() 是正确使用的函数，但您需要更改输入，如下所示：
require(httr)
url <- "http://<domain>/<path>/_vti_bin/ListData.svc/<something>"
r <- GET(url, authenticate("username","password",type="any"))
我不确定哪种特定类型有效，但我能够使用任何类型建立会话。我在 httr 包文档中找到了解决方案。
【讨论】：
authenticate 确实对我有用。我试图找出是否有一种方法不需要输入“用户名”或“密码”，因为这会将凭据暴露给有权访问 R 脚本的任何人。
secret 包将您的密码保存在加密文件中并从 R 访问它。或者使用在弹出窗口中请求密码的众多选项之一：stackoverflow.com/questions/14600099/…
为了确保您不会像我一样拔头发秃顶，请确保您在 SharePoint 网站中的读取访问权限的项目级权限设置为“读取所有项目”（here's 参考)。
library(AzureGraph)
gr <- create_graph_login()
me <- gr$get_user("me")
url <- "https://graph.microsoft.com/v1.0/sites/{site-id}/lists/{list-id}/items"
r <- call_graph_url(me$token, url, http_verb = c("GET"))
【讨论】：
如果身份验证对您有用，并且您的主要目标是不让您的用户和密码硬编码并暴露在脚本中，请尝试使用包 getPass，它有一个名为 getPass(msg="message you want to display ") 会打开一个提示，让您输入一个字符串（对于任何观看您屏幕的人来说，该字符串都会被屏蔽），然后返回该字符串。
免责声明：如果您这样做，则运行脚本的人必须具有安全访问权限并输入他们自己的凭据才能使脚本运行。此外，如果您在 RStudio 之类的环境中工作，其中您的环境显示在侧面板中，则这些值将暴露给任何回头看的人：
require(httr)
require(getPass)
user <- getPass(msg="Enter User ID: ")
pw <- getPass(msg="Enter password: ")
url <- "http://<domain>/<path>/_vti_bin/ListData.svc/<something>"
r <- GET(url, authenticate(user,pw,type="any"))
【讨论】：
我能够使用 RCurl 和 XML 包中的函数组合验证我的会话并将 SharePoint 列表转换为数据框。这是唯一对我有效的方法。
library(RCurl)
library(XML)
URL = "http://<domain>/<path>/_vti_bin/ListData.svc/<something>"
rawData = getURL(URL,userpwd=:"username:password")
xmlData = xmlParse(rawData)
items = getNodeSet(xmlData,"//m:properties")
df = xmlToDataFrame(items,stringsAsFactors=F)
【讨论】：
如果在公司网络上使用 Windows 身份验证，则无需输入用户名和密码即可执行以下操作：
library(httr)
url <- "http://<domain>/<path>/_vti_bin/ListData.svc/<something>"
r <- GET(url, authenticate(":", ":", "ntlm"))
【讨论】：