(R блестящий) не может изменить ширину информационного окна

Я использую библиотеку 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 всей ширины веб-страницы). Кто-нибудь поможет мне с этим? Большое спасибо!


r shiny shinydashboard
person Xin Wang    schedule 24.03.2016    source источник
comment
Используется ли ваш infoBox в виде столбцов или строк?   -  person SymbolixAU    schedule 24.03.2016

Ответы (2)


arrow_upward
9
arrow_downward

Может ты сам сможешь 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 введите описание изображения здесь

person Pork Chop    schedule 24.03.2016
comment
@XinWang meta.stackexchange.com/ questions / 5234 / - person Pork Chop; 29.03.2016

arrow_upward
2
arrow_downward

Я нашел этот ответ на github, и у меня он тоже сработал:

Вместо использования renderInfoBox и infoBoxOutput вы можете использовать renderUI и uiOutput, и у меня это сработало. Это заставляет меня думать, что есть проблема с функцией renderInfoBox.

person Peter Dieter    schedule 09.05.2019