Create shinydgraph.R