How to link 2 widget options dynamiclly in R Shinny?

Question

I\'m trying to link the two options Type Selection & Subtype Selection as shown in the image. So I expect if I click Beer under