（R闪亮）无法改变infoBox的宽度

Question

我使用库shinydashboard写我的ui.R.在我的仪表板部分中，我写道：

fluidRow(infoBoxOutput("dri"))

然后在我的server.R中，我写道：

output$dri = renderInfoBox({
    infoBox(
        width = 2,
        title = tags$b("Score"),
        value = tags$b("100"),
        color = "aqua",
        fill = TRUE,
        icon = icon("edit")
    )
})*

但宽度不会变为2;它仍然使用默认值，即4（整个网页宽度的1/3）。 有人会帮我这个吗？非常感谢你！

Answer 1

也许你可以自己style

rm(list = ls())
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(fluidRow(infoBoxOutput("dri")),tags$style("#dri {width:200px;}"))
)

server <- function(input, output) { 
  output$dri <- renderInfoBox({
    infoBox(
      title = tags$b("Score"),
      value = tags$b("100"),
      color = "aqua",
      fill = TRUE,
      icon = icon("edit")
    )    
  })
}
shinyApp(ui, server)

200 px

<强> 1000像素

Answer 2

我在github上找到了这个答案，它也对我有用：

  

您可以使用 renderUI ，而不是使用 renderInfoBox 和 infoBoxOutput   和 uiOutput ，这对我有用。这让我觉得有一个   renderInfoBox函数出现问题。