r - (R Shiny) 不能改变 infoBox 的宽度

Question

我使用库 Shinydashboard 来编写我的 ui.R。在我的dashboardBody部分，我写道:

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 像素


1000px