Put a lot of space in between so that you have to scroll… (Click the “Lazy Load” link to jump down the page)
library(networkD3)
# Create fake data
src <- c("A", "A", "A", "A", "B", "B", "C", "C", "D")
target <- c("B", "C", "D", "J", "E", "F", "G", "H", "I")
networkData <- data.frame(src, target)
Loads immediately (did not wiggle when scrolling into view)
# Plot
simpleNetwork(networkData)
Lazy loads (wiggled when scrolling into view)
# Plot
simpleNetwork(networkData)