Question

我正在尝试将闪亮的仪表板插入固定在顶部的导航页面，但我无法设法修复仪表板并且两者都重叠。我想让我的导航栏位于页面顶部，并且下方的仪表板卡在导航栏上，地图和桌子将是唯一要滚动的内容。我该如何处理这个问题？

这是代码，thx提前！

    #### Chargement des packages ####
library(shinydashboard)
library(shiny)
library(shinyjs)
library(leaflet)
library(DT)

#### Onglet SYNT (synthese) ####
#### * Header ####
SYNT_header <- dashboardHeader(title = "Filters",
                               titleWidth = 100,
                               dropdownMenu(type = "notifications", 
                                            icon = icon("book")
                               )
)

#### * Menu lateral - filtres ####
SYNT_sidebar <- dashboardSidebar(
  fluidRow(style = "padding:10px;",
           selectInput(inputId = "SYNT_sidebar_reg", 
                       label = "XXX", 
                       choices  = list())
  ),

  fluidRow(style = "padding:10px;",
           radioButtons(inputId = "SYNT_sidebar_typ", 
                        label = "XXX", 
                        choices = list()
           )
  )
)

#### * Corps onglet - Map/Table ####
SYNT_body <- dashboardBody(
  box(width = 12,
      title = "Map", 
      status = "primary", 
      solidHeader = TRUE,
      leafletOutput("SYNT_map", height = 600)
  ),

  box(width = 12, 
      title = "Table", 
      status = "primary", 
      solidHeader = TRUE,
      collapsible = TRUE,
      collapsed = TRUE,
      dataTableOutput("SYNT_table")
  )
)

#### Assemblage interface utilisateur ####
ui <- navbarPage(title = "XXX",
                 id = "nav",
                 position = "fixed-top", 
                 inverse = TRUE,
                 tabPanel(title = "SYNT",
                          style = "padding-top:51px;",
                          dashboardPage(SYNT_header, SYNT_sidebar, SYNT_body)
                 ),
                 tabPanel(title = "XXX",
                          style = "padding-top:51px;"
                 ),
                 tabPanel(title = "XXX",
                          style = "padding-top:51px;"
                 ),
                 tabPanel(title = "XXX",
                          style = "padding-top:51px;"
                 ),
                 tabPanel(title = "XXX",
                          style = "padding-top:51px;"
                 ),
                 tabPanel(title = "XXX",
                          style = "padding-top:51px;"
                 )
)

#### Partie server ####
server <- function(input, output) {

  output$SYNT_map <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$OpenStreetMap) %>%
      addMarkers(lng = 2.9252801, lat = 47.3824086)
  })

  output$SYNT_table <- renderDataTable(datatable(data.frame("XXX" = seq(1,12))))
}

#### Construction application ####
shinyApp(ui, server)

重叠冲突仪表板导航的铅有光泽

0 个答案: