This is an example app that includes a custom slider that should be accessible to almost all users. The slider is constructed from native, semantic, HTML elements — input, output and label — and we believe this should meet the WCAG 2.1 AA standard. However, it hasn't been independently assessed, so please do let us know if you discover any issues.
We used the article Build custom input objects to guide us.
To run the app in R or RStudio simply execute:
shiny::runApp("app/")