Custom input binding demo app for R Shiny