给定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类：

dashboardPage(

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