Solution

net <- networkDynamic(vertex.spells=vertexData[,c(2,3,4,1)],
                           edge.spells=edgeData[,c(3,4,6,7,5)],
                           create.TEAs=TRUE,
                           edge.TEA.names="weight",
                           vertex.TEA.names="vertex")

?reconcile.edge.activity: "When networkDynamic objects are created from real-world data it is often the case that activity information for vertices and edges may not come from the same source and may not match up exactly. Vertices may be inactive when incident edges are active, etc. The reconcile.vertex.activity function modifies the activity of a network's vertices acording to the mode specified"

reconcile.edge.activity(net,mode="match.to.vertices")

For the following, check skyebend's answer to this question:

render.d3movie(net,displaylabels = T,edge.lwd = function(slice){slice %e% "weight"*10},
               label=function(slice){slice %v% "vertex"})