library(networkD3)
library(jsonlite)
library(magrittr)
energy <- "https://cdn.rawgit.com/christophergandrud/networkD3/master/JSONdata/energy.json" %>%
  fromJSON
sankeyNetwork(Links = energy$links,
          Nodes = energy$nodes,
          Source = "source",
          Target = "target",
          Value = "value",
          NodeID = "name",
          units = "TWh",
          fontSize = 12,
          nodeWidth = 30)