ＮＨＫ番組見逃し防止機能をPower Apps と Automate で作成

#はじめに
前回に続き、ＮＨＫ番組表APIを利用したアプリを構築します。
番組表APIとの接続にはカスタムコネクタを利用します。

ＮＨＫ番組表APIは以下を参照ください。
https://api-portal.ＮＨＫ.or.jp/
アプリを登録しApikeyを取得しておきます。

#概要

ＮＨＫ、特にＥテレが大好きです。

カマキリ先生、植物に学ぶ生存戦略、みんなで筋肉体操…etc
これらの番組って不定期に新作が放映されるんですよね。

なので、見逃し必至、何度ＮＨＫオンデマンド（有料）のお世話になったことか

でも、これからは違います。

ＮＨＫ番組表APIという便利なツールを手にした今なら、見たい番組が放映される前に通知することができる！

ということで、「毎朝、その日に放映する番組をチェックし、見たい番組があればメールで通知する」見逃し防止機能を作成してみようと思います。

#作成

今回も手順は簡単です。
①カスタムコネクタを作り
②PowerAutomateで、通知システムを構築
③（ついでに）PowerAppsでこの先一週間の見たい番組検索アプリを作成（Microsoft Power Apps Advent Calendarの記事なので）

###①カスタムコネクタの作成
ＮＨＫの番組をゆるく検索できる PowerAppsでつくってみたを参照ください。
ただし今回利用するAPIはProgram List API (Ver.2)になります。
サービスはＮＨＫＥテレ(サービスIDは"e1"固定）で作りました。

応答のサンプルには上記、Program List API (Ver.2)のテスト機能でレスポンスを取得しインポートすると良いと思います。

###②PowerAutomateで通知機能を構築

今回もOneDrive上のExcelブックのテーブルに、見逃したくない番組ワード一覧を格納します。

フローの全体図です。

上から順に説明します。
トリガーには毎日6:00で設定しました。
OneDrive上のExcelファイルのテーブルから全件取得します。
さらに本日の日付を取得するために、現在の時刻を取得しJSTに変換。

次に、上記①カスタムコネクタの作成で作成した接続を追加します。

番組表APIのレスポンスの、Key"title"(番組名)の値に対して番組検索ワードによる検索を行います。

番組検索ワードを含む名前の番組情報を取得したら、指定のメールアドレスに通知メールを送信します。

こんな感じでメールが届きます

###③（ついでに）PowerAppsでこの先一週間の見たい番組検索アプリを作成
Microsoft Power Apps Advent Calendar 14日目の担当記事ですから、PowerAppsアプリも作ります。

まず、先ほど作ったフローを開いて、[名前を付けて保存]でフローを複製します。

複製したフローのトリガーを「PowerApps」に変更。文字列型の変数も初期化しておきます。

APIの呼出では、日付に「PowerAppsで確認」を指定し、PowerAppsからの引数とします。

メールの送信を削除し、かわりにデータ操作の「選択」と「参加」を追加します。
これで、hitした番組のidを":"（コロン）で繋いで出力します。

条件の左辺には下記を入力。

empty(body('結合'))

文字列変数に追加では、「結合」の出力の後ろに":"（コロン）を入力し、区切り文字とします。

最後に「PowerAppsまたはFlowに応答する」を追加して完成です。

PowerAppsアプリの作成です。
最初に画面イメージ。

Appの[OnStart]で、本日から一週間分の検索結果を取得します

ClearCollect(Nums,[0,1,2,3,4,5,6]);
Clear(Days);Clear(shows);
ForAll(Nums,Collect(Days,Text(DateAdd(Today(),Value),"[$-ja]yyyy-mm-dd")));

ForAll(Days,Collect(shows,Split(NHK番組検索_fromPowerApps.Run(Value).showid,":")));

RemoveIf(shows,IsBlank(Result));

ClearCollect(shows2,AddColumns(shows,"logo_url",First(NHK_Info.getNHKInfoe1("230",Result,{key:"D2HGH23pUXYhRVGKhn4rpRR6y4JCyOjI"}).list.e1).program_logo.url,"title",First(NHK_Info.getNHKInfoe1("230",Result,{key:"D2HGH23pUXYhRVGKhn4rpRR6y4JCyOjI"}).list.e1).title,"start_time",First(NHK_Info.getNHKInfoe1("230",Result,{key:"D2HGH23pUXYhRVGKhn4rpRR6y4JCyOjI"}).list.e1).start_time))

簡単な解説を
ClearCollect(Nums,[0,1,2,3,4,5,6]);
ForAll(Nums,Collect(Days,Text(DateAdd(Today(),Value),"[$-ja]yyyy-mm-dd")));
で一週間分の日付を取得し、配列にセットします。

ForAll(Days,Collect(shows,Split(NHK番組検索_fromPowerApps.Run(Value).showid,":")));
で上記で作成したフローを呼び出します。出力結果の各番組IDは":"（コロン）で区切られているため、Split()関数で分割します。

RemoveIf(shows,IsBlank(Result));
フローのループ処理末尾にも":"が付与されてしまうため、上記Split()関数の結果、下図のような値無しのレコードが作成されてしまいます。
この値無しのレコードを削除します。

ClearCollect(shows2,AddColumns(shows,"logo_url",First(NHK_Info.getNHKInfoe1("230",Result,{key:"D2HGH23pUXYhRVGKhn4rpRR6y4JCyOjI"}).list.e1).program_logo.url,"title",First(NHK_Info.getNHKInfoe1("230",Result,{key:"D2HGH23pUXYhRVGKhn4rpRR6y4JCyOjI"}).list.e1).title,"start_time",First(NHK_Info.getNHKInfoe1("230",Result,{key:"D2HGH23pUXYhRVGKhn4rpRR6y4JCyOjI"}).list.e1).start_time))
Program Info APIでHitした番組の詳細情報を取得し、カラムに追加します。
（今回は番組ロゴURLと番組名と放映開始時間を取得しました）

ギャラリーの画像コントロールの「image」プロパティには、先頭に"http://"を付与した番組ロゴURLを指定してください。

開始時間も整形しておきます。

#まとめ
PowerAppsアプリの蛇足感が若干ありますが、見逃し防止機能はこれからの年末年始の特番祭りで活用できそうです。
PowerAppsやPowerAutomateはアイデア次第でとても便利なアプリが簡単に作成できる素晴らしいツールです。
ぜひご活用ください。