How can we add drop-down and filter option in box header

for the purpose of providind a reprex (link), given that you dont require database support, but wish to have shiny/highcharter support, you would be wise to provide a version of your example code without database logic. You should in your own script, make a relevant database call.
when it is captured a la.

Requisitions_VS_Filleddb<-data.frame(Data)

this provides an object,Requisitions_VS_Filleddb that you can make a textual representation out of with the dput function

dput(Requisitions_VS_Filleddb)

this will produce text in your console, beginning with structure etc...
copy all of this and assign it the Requisitions_VS_Filleddb name in your code, i.e. replace data.frame(Data) with the copied dput output text. and eliminate all the db code for example.

Thanks in advance.
Nir