How we can create a shiny app to run Deseq2 ?

Hello,
how we can create a shiny app to run Deseq2 ?
suppose i have count table and meta table as below :

count_table

GENE sample1 sample2 sample3 sample4 sample5
A1BG 8 8 8 7 7
A1BG-AS1 7 6 5 4 4
A1CF 6 6 6 7 6
A2M 6 6 2 7 6

meta_table

sample type gender
sample1 group1 Male
sample2 group1 Female
sample3 group1 Male
sample4 group2 Female
sample5 group2 Female

Deseq object created with following formula :

dds <- DESeqDataSetFromMatrix(countData = count_table,
                              colData = meta_table,
                              design= ~ type)

Question :

If User uploaded count_table and meta_table to create Deseq object . how we can create a shiny sidebar layout, where user will be able to select his choice ( either column "type" or column "gender" ) from meta_table to pass to above formula .