(R блестящий) не может изменить ширину 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