R shinydashboard - 更改 valueBox 的高度

Question

给定一个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")
    )
)

Answer 1

原来我没有正确引用值框；我需要使用.small-box 类：

dashboardPage(

    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        tags$head(tags$style(HTML(".small-box {height: 50px}"))),
        valueBoxOutput(outputId = "vb")
    )
)