Javascript 如何使R中的粘性导航条发亮？

我有一个带导航条的闪亮应用程序，我想让这个导航条粘起来。我检查了解释的地方，并尝试将CSS和JS代码放入闪亮但没有成功（要看到这一点，请运行应用程序，在表中选择50或100个观察值，然后向下滚动）

库（闪亮）
图书馆（dplyr）
ui您可以在
navbarPage
中使用
position=c（“固定顶部”）
。这符合你的问题

library(shiny)
library(dplyr)

ui <- navbarPage(
  title = "",
  tabPanel(
    title = "test tab",
    br(),
    br(),
    br(),
    br(),
    dataTableOutput("test_table")
  ),
  selected = "test tab",
  position = c("fixed-top")
)

server <- function(input, output, session) {
  
  output$test_table <- renderDataTable({
    mtcars %>%
      bind_rows(mtcars)
  })
  
}

shinyApp(ui, server)

库（闪亮）
图书馆（dplyr）
用户界面
library(shiny)
library(dplyr)

ui <- navbarPage(
  title = "",
  tabPanel(
    title = "test tab",
    br(),
    br(),
    br(),
    br(),
    dataTableOutput("test_table")
  ),
  selected = "test tab",
  position = c("fixed-top")
)

server <- function(input, output, session) {
  
  output$test_table <- renderDataTable({
    mtcars %>%
      bind_rows(mtcars)
  })
  
}

shinyApp(ui, server)