Could you format this into a reproducible example? That is a set of code that folks can easily get up and running to replicate your issue? Currently, this is only part of a shiny app, as there is no example data provided. Also if there are elements not relevant, they might be removed from the reprex, i.e. 'shinytheme'
IF you aren't familiar with best practices for shiny reprexes, check out
This will make it easier for folks to replicate your issue and offer suggestions to solve it.