Freeze sidebarPanel and dataTableOutput in ShinyApp

Hello,

I would like to freeze Filters on top and Aggregateted data frame even if i scroll down vertically.

sidebarLayout(
                         sidebarPanel(
                         fluidRow(
                           column(2,
                         dateRangeInput("daterange", label = span("Date Range:", style = "color: #0082C3"), start = "2021-01-01", 
                                        end   = as.Date(Sys.Date()-1), max = as.Date(Sys.Date()-1))),
                         column(2,
                         selectInput("sports_day", label = span("Sports:", style = "color: #0082C3"), choices = c(sports),multiple = TRUE,selected = c(sports)[1])),
                         
                         column(2,
                         selectInput("channels_day", label = span("Channels:", style = "color: #0082C3"), choices = c(channels), multiple = TRUE, selected = c(channels)[1])),
        
                         tags$head(
                           tags$style(HTML('#show_graph{background-color:#0082C3}'))
                         ),
                         
                         br(),
                         
                         column(2,
                         actionButton("show_graph", label = span("Show Graph", style = "color: #FFFFFF"))),
                         
                         tags$head(
                           tags$style(HTML('#downloadSportsViewData{background-color:#0082C3}'))
                         ),
                         
                         
                         column(2,
                         downloadButton("downloadSportsViewData",label = span("Download", style = "color: #FFFFFF")))
                       ), width = 12),
                      
                      
                       mainPanel(
                         dataTableOutput("aggregatedSportsViewPerDayData")

Here is the screenshot of shinyApp