I saw this tweet about Mathematica last year, which naturally urged me to write the R version of this code.
<script async src=“https://platform.twitter.com/widgets.js" …Mathematicaを使って，シュレーディンガーの顔をこのようなアニメーションにされたユーザの方がいらっしゃいます。コードも掲載されています。https://t.co/IDIzM8Xfy2 pic.twitter.com/ZTIbjtmXBm
— Wolfram Japan (@WolframJapan) June 15, 2017