各製品の資料を入手。
詳細はこちら →CData
こんにちは!ウェブ担当の加藤です。マーケ関連のデータ分析や整備もやっています。
Pure R スクリプトおよび 標準SQL を使って、R およびJava をインストール可能なあらゆるマシン上でSAP Ariba Procurement にアクセス。CData JDBC Driver for SAPAribaProcurement とRJDBC package を使って、R でリモートSAP Ariba Procurement データ を利用できます。CData Driver を使うことで、業界が認めた基準で書かれたドライバーを活用して、オープンソースでポピュラーなR 言語のデータにアクセスできます。この記事では、ドライバーを使ってSAP Ariba Procurement にSQL クエリを実行する方法、および標準R 関数を呼び出してSAP Ariba Procurement をビジュアライズする方法について説明します。
マルチスレッドのMicrosoft R Open を実行すること、またはBLAS/LAPACK ライブラリにリンクされたオープン R を実行することによって、マルチスレッドおよびマネージドコードから利益を得られたドライバーのパフォーマンスにマッチできます。ここでは、Microsoft R Open 3.2.3 を使用します。CRAN レポジトリのJan. 1, 2016 snapshot からパッケージをインストールするために事前設定されています。このsnapshot は再現性を保証します。
ドライバーを使うにはRJDBC パッケージをダウンロードします。RJDBC パッケージをインストールしたら、次のコードを入力してパッケージをロードします。
library(RJDBC)
下記の情報を使いSAP Ariba Procurement にJDBC データソースとして接続します。
dbConnect やdbSendQuery のようなDBI 関数は、R にデータアクセスコードを書くための統一インターフェースを提供します。
driver <- JDBC(driverClass = "cdata.jdbc.saparibaprocurement.SAPAribaProcurementDriver", classPath = "MyInstallationDir\lib\cdata.jdbc.saparibaprocurement.jar", identifier.quote = "'")
これで、DBI 関数を使ってSAP Ariba Procurement に接続しSQL クエリを実行する準備が整いました。dbConnect 関数を使ってJDBC 接続を初期化します。一般的なJDBC 接続文字列は次のとおりです。
conn <- dbConnect(driver,"ANID=AN02000000280;API=PurchaseOrdersBuyerAPI-V1;APIKey=wWVLn7WTAXrIRMAzZ6VnuEj7Ekot5jnU;AuthScheme=OAuthClient;")
SAP Ariba Procurement に接続するには以下を設定します。
接続プロパティを設定した後、認証のためにOAuth 接続を設定する必要があります。
OAuth アプリケーションの作成について、詳しくはヘルプドキュメントを参照してください。
以下を設定して、接続してください。
接続すると、本製品は自動でOAuth プロセスを完了します。
ドライバーはSAP Ariba Procurement API をリレーショナルデータベース、ビュー、ストアドプロシージャとしてモデルします。次のコードを使ってテーブルリストを検出します。
dbListTables(conn)
dbGetQuery 関数を使ってSAP Ariba Procurement API がサポートするすべてのSQL クエリを実行できます:
orders <- dbGetQuery(conn,"SELECT DocumentNumber, Revision FROM Orders WHERE OrderStatus = 'CHANGED'")
次のコマンドを使って、結果を[data viewer]ウィンドウで見ることができます。
View(orders)
CRAN レポジトリで利用可能なあらゆるデータ初期化パッケージを使ってSAP Ariba Procurement を分析する準備が整いました。ビルトインバーのplot 関数を使って簡単なバーを作成できます。
par(las=2,ps=10,mar=c(5,15,4,2)) barplot(orders$Revision, main="SAP Ariba Procurement Orders", names.arg = orders$DocumentNumber, horiz=TRUE)