如何使用输入光泽创建固定的标题面板

Question

所以我有一个可在我闪亮的应用程序中滚动的数据表。但是我想放置一些输入静态字段，使其保持静态。现在，输入字段位于同一个FluidPage上，因此它们随着用户向下滚动而上下滚动。

  ui = fluidPage(
    fluidRow(
      column(3,
             selectInput("category1", "Event Type:",
                         c(event_type),selected = "Music")),

      column(3,
             selectInput("category2", "Event Type:",
                         c(event_type),selected = "Music")),

      column(3,
             selectInput("city", "City:",
                         city_array,selected = "Gettysburg")),

      fluidRow(
        column(12,
               DT::dataTableOutput('table')
        ), 

        fluidPage(
          column(3,
                 selectInput("city", "City:",
                             city_array,selected = "Gettysburg"))

        )

        )
    ))