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”)
。另外,关于这个示例,您是对的,因此我在底部提供了一个指向代码的链接^