Off topic:Shiny R pannel

Question

[amroumouna]

Hello everyone, I'm a newbie in Rshiny, how do I create a dynamic panel in the sidebar? I do this but it doesn't work

library(shiny)

# Define UI for random distribution application
shinyUI(fluidPage(theme="style.css",

  # Application title
  titlePanel("RNAseq app R "),
  sidebarLayout(
    sidebarPanel(
    fileInput('file1', 'Choose file to upload',
              accept = c(
                'text/csv',
                'text/comma-separated-values',
                'text/tab-separated-values',
                'text/plain',
                '.csv',
                '.tsv'
              )
    ),
    tags$hr(),

    navlistPanel(

      tabPanel("Quality Control"),
      tabPanel("Trimming"),

      tabPanel("Alignement")      
    )
  )
,
    mainPanel(
      )
    ))) 

server

library(shiny)

shinyServer(function(input, output) {

})

How can I add also a select to each navelement?