Animations like this have not been implemented yet. Another simple example to try (the result in the cloud is just a Manipulate)
CloudDeploy[Animate[Plot[Sinc[a x], {x, -10, 10}, PlotRange -> 2], {a, 1, 5}, AnimationRunning -> True]]
