problem R shiny

Hello everyone,

I'm currently working on a project and I'm encountering some issues with my code. It doesn't seem to be functioning as expected, and I could really use some assistance. i really need someone to help mee

Thank you in advance for your help