r - Valuebox 未显示 - Shiny 的仪表板

Question

我想使用 flexdashboard 包在我 Shiny 的仪表板中显示值框。请检查我的代码，值框未显示。请帮我解决这个问题。

界面代码

library(shiny)
library(shinydashboard)
library(flexdashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),

                    dashboardSidebar(
                      sidebarMenu()),

                    dashboardBody(
                                fluidRow(
                                  valueBoxOutput("vbox1", width = 2),
                                  valueBoxOutput("vbox2", width = 2),
                                  valueBoxOutput("vbox3", width = 2),
                                  valueBoxOutput("vbox4", width = 2),
                                  valueBoxOutput("vbox5", width = 2),
                                  valueBoxOutput("vbox6", width = 2))))

服务器代码

server <- function(input, output) {

  #valuebox
  output$vbox1 <- renderValueBox({
    d <- 10
    valueBox( d, caption = "Coss")
  })

  output$vbox2 <- renderValueBox({ 
    d <- 42
    valueBox( d,"Ccy")
  })

  output$vbox3 <- renderValueBox({ 
    d <- 75
    valueBox( d,"Cty")})

  output$vbox4 <- renderValueBox({ 
    d <- 21
    valueBox( d,"Dup")})

  output$vbox5 <- renderValueBox({ 
    d <- 34
    valueBox( d,"Inte")})

  output$vbox6 <- renderValueBox({ 
    d <- 56
    valueBox( d,"Acd")})

  }

shinyApp(ui, server)

我只得到文本而不是值框。

谢谢巴拉吉

Answer 1

flexdashboard 包屏蔽了 valueBoxOutput()，它是 shinydashboard 包的一个函数。所以要解决这个问题，你应该使用 shinydashboard::valueBoxOutput 而不是 valueBoxOutput