Mathematica の授業で受講者にデータを配布したい。 Wolfram Cloud からデータファイルをダウンロードできるようにできればこれが実現する。
Wolfram Mathematica Online の説明のページには可能であると書いてある。しかし、具体的な方法が載っていないので、思考錯誤した結果見つけた方法をここに載せます。
次は Mathematica Online で評価したノートブックです。data.txt はあらかじめアップロードした状態で動かしています。
SetDirectory[NotebookDirectory[]];
data=Import["data.txt","Table"];
TableForm[Take[data,2]]
1000,ba,b,ab,ba,b,ba,b,b,b,b,b,ab,d
1001,ba,b,ba,b,bb,b,b,c,c,c,c,c,c
Export["data.csv","Table"];
obj=CloudExport[data,"Table","dataCloud.csv",Permissions->"Private"];
obj[[1]]
https://www.wolframcloud.com/objects/user-cce28da9-e8e4-44c1-81f7-2b959a452e8a/dataCloud.cs
最後に表示された url をブログに書き込み、それをクリックすればダウンロードできることがわかった。 ただし、許可を Private にしているので制限がかかっている。次が例です。
dataCloud.csv Download from Wolfram Cloud Private
許可を Public にすれば誰でもダウンロードできることになります。