リモートデータ用のダッシュボード
自分のWolfram Cloudアカウント,あるいは他のWolframシステムから「points」という名のチャネルに定期的に点のリストを送信する.
In[1]:=
![Click for copyable input](assets.ja/dashboard-for-remote-data/In_48.png)
task = RunScheduledTask[
ChannelSend[
ChannelObject["points"], <|"points" -> RandomReal[{0, 1}, 100]|>],
1]
![](assets.ja/dashboard-for-remote-data/O_51.png)
デスクトップセッションで,そのチャネルをリッスン(待ち受け)し始め,到着する点を動的にプロットするように設定する.
In[1]:=
![Click for copyable input](assets.ja/dashboard-for-remote-data/In_49.png)
listener = ChannelListen["points"]
Out[1]=
![](assets.ja/dashboard-for-remote-data/O_52.png)
In[2]:=
![Click for copyable input](assets.ja/dashboard-for-remote-data/In_50.png)
Dynamic[ListLinePlot[
If[AssociationQ[#], Lookup[#, "points"], {}] &@listener["Message"],
PlotTheme -> "Marketing"]]
Out[2]=
![](assets.ja/dashboard-for-remote-data/O_53.png)
リスナを削除し,クラウドからのデータの送信を止める.
In[3]:=
![Click for copyable input](assets.ja/dashboard-for-remote-data/In_51.png)
RemoveChannelListener[listener]
Out[3]=
![](assets.ja/dashboard-for-remote-data/O_54.png)
In[4]:=
![Click for copyable input](assets.ja/dashboard-for-remote-data/In_52.png)
RemoveScheduledTask[task];