スケジュールされたタスクの状態の概要
すべてのScheduledTasksの状態を表示する関数を生成する.
In[1]:=
![Click for copyable input](assets.ja/scheduled-task-status-summary/In_38.png)
DisplayTasks[] := Module[{tasks},
tasks = ScheduledTasks[];
Grid[Take[
Reverse@SortBy[
Map[{Style[ScheduledTaskInformation[#, "Name"], 14,
FontFamily -> "Source Sans Pro"],
Style[ScheduledTaskInformation[#, "Status"], 14,
FontFamily -> "Source Sans Pro"],
NextScheduledTaskTime[#]} &, tasks], Last], 10],
Alignment -> {Left, Top}]
]
1時間ごとに情報を表示し,更新するAutoRefreshedオブジェクトを配備する.
In[2]:=
![Click for copyable input](assets.ja/scheduled-task-status-summary/In_39.png)
CloudDeploy[AutoRefreshed[DisplayTasks[], "Hourly"], "TaskDisplay"]