R Shiny app for Accent case