D using Shiny