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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.