Custom server-to-client message example app for R shiny