CODEWITHSUNDEEP
cssrshinyshinydashboard
Vasim
Vasim

Reputation: 3143

Shiny wellpanel width

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)

Results

enter image description here

However, I only need the highlighted portion; ie wellpanel width should be as per boxes

enter image description here

This is just an example, I will be adding four more boxes besides with a different wellpanel.

Upvotes: 5

Views: 5118

Answers (1)

Eduardo Bergel
Eduardo Bergel

Reputation: 2775

Try using width in 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)

Upvotes: 2

Related Questions