各製品の資料を入手。
詳細はこちら →Raisers Edge NXT Driver の30日間無償トライアルをダウンロード
30日間の無償トライアルへ
CData
こんにちは！ウェブ担当の加藤です。マーケ関連のデータ分析や整備もやっています。
Pure R スクリプトおよび 標準SQL を使って、R およびJava をインストール可能なあらゆるマシン上でRaisers Edge NXT にアクセス。CData JDBC Driver for RaiserEdgeNXT とRJDBC package を使って、R でリモートRaisers Edge NXT データ を利用できます。CData Driver を使うことで、業界が認めた基準で書かれたドライバーを活用して、オープンソースでポピュラーなR 言語のデータにアクセスできます。この記事では、ドライバーを使ってRaisers Edge NXT にSQL クエリを実行する方法、および標準R 関数を呼び出してRaisers Edge NXT をビジュアライズする方法について説明します。
マルチスレッドのMicrosoft R Open を実行すること、またはBLAS/LAPACK ライブラリにリンクされたオープン R を実行することによって、マルチスレッドおよびマネージドコードから利益を得られたドライバーのパフォーマンスにマッチできます。ここでは、Microsoft R Open 3.2.3 を使用します。CRAN レポジトリのJan. 1, 2016 snapshot からパッケージをインストールするために事前設定されています。このsnapshot は再現性を保証します。
ドライバーを使うにはRJDBC パッケージをダウンロードします。RJDBC パッケージをインストールしたら、次のコードを入力してパッケージをロードします。
library(RJDBC)
下記の情報を使いRaisers Edge NXT にJDBC データソースとして接続します。
dbConnect やdbSendQuery のようなDBI 関数は、R にデータアクセスコードを書くための統一インターフェースを提供します。
driver <- JDBC(driverClass = "cdata.jdbc.raiseredgenxt.RaiserEdgeNXTDriver", classPath = "MyInstallationDir\lib\cdata.jdbc.raiseredgenxt.jar", identifier.quote = "'")
これで、DBI 関数を使ってRaisers Edge NXT に接続しSQL クエリを実行する準備が整いました。dbConnect 関数を使ってJDBC 接続を初期化します。一般的なJDBC 接続文字列は次のとおりです。
conn <- dbConnect(driver,"SubscriptionKey=MySubscriptionKey;OAuthClientId=MyOAuthClientId;OAuthClientSecret=MyOAuthClientSecret;CallbackURL=http://localhost:33333;")
接続設定の前に、BlackBaud Raiser's Edge NXT Profile にあるSubscriptionKey を取得しておいてください。
BlackBaud Raiser's Edge NXT は、OAuth 認証規格を使用します。すべてのフローにおいて、以下の設定が必要です。
この設定ののち、続けてOAuth 設定を行います。設定方法は、ヘルプドキュメント の「OAuth」セクションを参照してください。
ドライバーはRaisers Edge NXT API をリレーショナルデータベース、ビュー、ストアドプロシージャとしてモデルします。次のコードを使ってテーブルリストを検出します。
dbListTables(conn)
dbGetQuery 関数を使ってRaisers Edge NXT API がサポートするすべてのSQL クエリを実行できます：
constituents <- dbGetQuery(conn,"SELECT Id, AddressLines FROM Constituents WHERE Type = 'Home'")
次のコマンドを使って、結果を［data viewer］ウィンドウで見ることができます。
View(constituents)
CRAN レポジトリで利用可能なあらゆるデータ初期化パッケージを使ってRaisers Edge NXT を分析する準備が整いました。ビルトインバーのplot 関数を使って簡単なバーを作成できます。
par(las=2,ps=10,mar=c(5,15,4,2)) barplot(constituents$AddressLines, main="Raisers Edge NXT Constituents", names.arg = constituents$Id, horiz=TRUE)
