Создание динамичного мешап-сервиса IFTTT («Если это, тогда то»)

В сеансе Wolfram Desktop создать канал, который будет получать данные из IFTTT.

In[1]:=

channel = CreateChannel["IFTTT", Permissions -> "Public"]

Out[1]=

Подписавшись на канал, будем накапливать до 2000 значимых слов из входящих сообщений.

In[2]:=

list = {};

In[3]:=

listener = ChannelListen[ "IFTTT", (list = Take[Flatten[{DeleteCases[#, "RT"] &@ DeleteStopwords@ DeleteCases[ TextWords[ Lookup[#Message, "text", ""]], _?(StringMatchQ[#, RegularExpression["^(@|http(s)?://).*"]] &)], list}], UpTo[2000]]) &]

Out[3]=

Создадим URL для использования в IFTTT.

In[4]:=

URLBuild[listener["URL"], {"operation" -> "send"}]

Out[4]=

Создадим IFTTT, который отправляет данные каналу, как только кто-то упоминает слово "политика" в сети Twitter.

Out[5]=

Динамически отображать слова самых последних сообщений в Twitter и просматривать всё происходящее в режиме онлайн.

In[6]:=

Dynamic[WordCloud[list]]

Out[6]=