Использование R для подключения к списку sharepoint

Question

Кто-нибудь смог импортировать список SharePoint в R в качестве фреймворка данных?

У меня есть два отдельных источника данных: один из списка SharePoint, а другой из базы данных, на которой я хочу выполнить анализ. Я могу подключиться к БД без каких-либо проблем, но не могу найти ничего для подключения к списку SharePoint.

Сервер SharePoint является 2007

Answer 1

Я работаю на чтение SharePoint 2010 с использованием списков R на некоторое время теперь. В основном, я использую веб-службу SharePoint, чтобы возвращать результаты из списка, а затем использовать xmlToDataFrame для преобразования в dataframe.

URL <- "http://yoursharepointserver/_vti_bin/ListData.svc/yourlist"  
data = xmlParse(readLines(URL)) 

## get the individual list items  
items = getNodeSet(data, "//m:properties") 

## convert to a data frame 
df = xmlToDataFrame(items, stringsAsFactors = FALSE) 

Поскольку я использую веб-сервиса можно отфильтровать список, прежде чем я возвращать результаты, которые действительно полезны в преодолении ограничений веб SharePoint службы. Следующая ссылка весьма полезна ... http://www.dotnetmafia.com/blogs/dotnettipoftheday/archive/2010/01/21/introduction-to-querying-lists-with-rest-and-listdata-svc-in-sharepoint-2010.aspx

Answer 2

Ответ Ли Мендосы может работать, если ListData.svc запущен и/или у вас есть административный доступ к серверу SharePoint.

Если это не так: может работать следующее. По крайней мере, это для меня в SharePoint 2010. Если есть лучший способ сделать это, когда ListData.svc нет, я бы хотел его услышать.

library(RCurl) 
library(XML) 
library(data.table) 
URL <- "http://<site>/_vti_bin/owssvr.dll?Cmd=Display&Query=*&XMLDATA=TRUE&List={GUID_OF_LIST}" 
rawData <- getURL(URL, userpwd = "username:password") 
# in real life prompt for user credentials, don't put in script 
xmlData <- xmlParse (rawData, options=HUGE, useInternalNodes=TRUE) 
dataList <- xmlToList(xmlRoot(xmlData)[["data"]]) 
# check the system return, on my SP2010 server the data block is 
# named rs:data so this works 
dataMatrix <- do.call(rbind,dataList) 
finalDataTable <- data.table(dataMatrix)