给定一个 shinydashboard
ui.R
library(shinydashboard)
library(shiny)
dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
valueBoxOutput(outputId = "vb")
)
)
server.R
library(shinydashboard)
library(shiny)
function(input, output, session) {
output$vb <- renderValueBox({
valueBox(subtitle = "Hello",
value = "hi",
width = 6,
color="blue"
)
})
}
问题
是否可以更改
valueBox
的高度? ?我试过使用
tags
但无法让它们工作,所以我显然错过了一些东西:dashboardPage(
dashboardHeader(),
dashboardSidebar(
# tags$head(tags$style("#vb{height:500px}"))
),
dashboardBody(
# tags$head(tags$style("#vb{height:500px}")),
# div(style="height: 500px",
# valueBoxOutput(outputId = "vb")
# )
valueBoxOutput(outputId = "vb")
)
)
最佳答案
事实证明我没有正确引用值框;我需要使用 .small-box
类(class):
dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
tags$head(tags$style(HTML(".small-box {height: 50px}"))),
valueBoxOutput(outputId = "vb")
)
)
关于R Shinydashboard - 更改 valueBox 的高度,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35422946/