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 должна быть в соответствии с коробками
Это всего лишь пример, я добавлю еще четыре коробки с другой панелью скважин.