Css 覆盖闪亮仪表板和传单中方框的高度

Css 覆盖闪亮仪表板和传单中方框的高度,css,r,height,shiny,dashboard,Css,R,Height,Shiny,Dashboard,我使用shinyDashboard创建了一个仪表板,并且我有一个带有传单的地图。shinyDashboard中使用的框元素为地图创建400px的固定高度 我希望地图是90vh,这样它可以覆盖大部分屏幕,因此我在UI文件中写下了这一点: tabItem(tabName = "widgets", fluidPage( fluidRow( tags$head(tags$style(type = "text/

我使用
shinyDashboard
创建了一个仪表板,并且我有一个带有
传单的地图。shinyDashboard中使用的
元素为地图创建400px的固定高度

我希望地图是
90vh
,这样它可以覆盖大部分屏幕,因此我在
UI
文件中写下了这一点:

tabItem(tabName = "widgets",
              fluidPage(
                fluidRow(
                  tags$head(tags$style(type = "text/css",'
                                            #geomap {
                                            height: 90vh;
                                            }
                                            ')),
                  box(title = "Geographical distribution",
                    leafletOutput("geomap")
                  )
                )
              )
      )
现在,当我检查页面时,我可以看到属性被传递到
#geomap
id上,但由于某种原因它被覆盖

!

另外,这里是节点

我以前成功地重写过类,所以我不明白如何不能重写ID。有什么想法吗

谢谢大家!

编辑:下面是一个示例代码:

library(shiny)
library(shinydashboard)
library(leaflet)


server <- function(input, output, session) {
  output$geomap <- renderLeaflet({
    m <- leaflet(data) %>%
      addProviderTiles("CartoDB.Positron")

  })
}

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "Test"),
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Map distribution", tabName = "widgets", icon = icon("th"))
                      )
                    ),


                    dashboardBody(
                      tabItems(
                        tabItem(tabName = "widgets",
                                fluidPage(
                                  fluidRow(
                                    tags$head(tags$style(HTML('
                                            .col-sm-6 {
                                                              width: 100%;
                                                              }
                                                              '))),
                                    box(title = "Geographical distribution",
                                        leafletOutput("geomap")
                                    )
                                    )
                                  )
                                )
                          )
                      )
                    )

shinyApp(ui, server)
库(闪亮)
图书馆(shinydashboard)
图书馆(单张)

你试过申请服务器了吗!对css重要吗?高度:90vh!重要的;您试图覆盖具有更高优先级的内联样式。请看这里的解决方案:@MrFlick,@Carlton谢谢,成功了。虽然我真的不喜欢使用
!重要的
,但我想没有其他方法可以做到。你可以尝试一下
传单输出(“geomap”,height=“90vh”)
(而且不用担心头部的css标签)。您没有创建一个可复制的示例,因此不容易测试其他可能的解决方案。@MrFlick如果我这样做,我会得到错误
“90vh”不是有效的CSS单元(例如,“100%”、“400px”、“auto”)
。另外,关于这个示例,您是对的,因此我在底部提供了一个指向代码的链接^