Сводка состояния задач в рабочем графике
Создайте функцию, которая показывает статус всех задач в вашем рабочем графике, воспользовавшись ScheduledTasks.
In[1]:=
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}]
]Создадим oбъект AutoRefreshed, который будет отображать и обновлять информацию каждый час.
In[2]:=
CloudDeploy[AutoRefreshed[DisplayTasks[], "Hourly"], "TaskDisplay"]Out[2]=
