（R）无法更改信息框的宽度

我使用库ShinydaShard来编写我的ui.R。在仪表板主体部分，我写道：

fluidRow(infoBoxOutput("dri"))

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

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

fluidRow(infoBoxOutput("dri"))

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）。

---

有人能帮我吗？多谢各位

也许你可以自己做

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)

rm（list=ls（））
图书馆（闪亮）
图书馆（shinydashboard）
ui我在github上找到了这个答案，它对我也很有用：

您可以使用renderUI
而且，uiOutput，这对我很有效。这让我觉得有一个
renderInfoBox函数出现问题

您的
infoBox
是基于列还是基于行的布局？@XinWang