Блестящая wellpanel ширина

Question

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    wellPanel(tags$div(id="pane", 
    fluidRow(
     column(width = 6,valueBox("test","test1"), 
      valueBox("test","test2"))), 
    fluidRow(
     column(width = 6,valueBox("test","test3"), 
      valueBox("test","test4") 

      ))), 
    tags$style(type="text/css","#pane{font-size:20px;}")) 

    )) 
#) 




server <- function(input, output) {} 

shinyApp(ui, server) 

Результаты

Тем не менее, нужно только выделенную часть; т.е. ширина wellpanel должна быть в соответствии с коробками

Это просто пример, я буду добавлять еще четыре коробки к тому же с другой wellpanel.

Answer 1

Попробуйте использовать ширину в valueBox

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    fluidRow(column(width = 6, wellPanel(tags$div(id="pane", 
     fluidRow(valueBox(width = 6, "test","test1"), valueBox(width = 6, "test","test2")), 
     fluidRow(valueBox(width = 6, "test","test3"), valueBox(width = 6, "test","test4")), 
     tags$style(type="text/css","#pane{font-size:20px;}") 
    )))) 
) 
) 

server <- function(input, output) {} 
shinyApp(ui, server)