Цвет фона в tabsetPanel in Shiny

Как получить белый фон в tabsetPanel. Для лучшего понимания моей проблемы я приведу пример:

В моем файле ui.R у меня есть следующее:

mainPanel( wellPanel(wellPanel(plotOutput("densityPlot", height="500px"))), 
                               wellPanel(tabsetPanel(type = "tabs", 

        tabPanel(h5("Text1"),p("Text" )),
        tabPanel(h5("Text2"), p("Text") ),                   
        tabPanel(h5("Text3"), p("Text"))),
        br(),
        br(),
        br()                           
    ))

Чтобы сделать его более понятным, взгляните на рисунок ниже: enter image description here

Разница - это область белого фона внутри любой tagPanel. Эта комбинация серого и белого - проблема. У кого-нибудь есть идея, как я могу получить такие tagPanals.

ОТВЕТЫ

Ответ 1

Используйте параметр style на wellPanel:

runApp(list(
  ui = fluidPage(
    titlePanel("Hello Shiny!"),
    sidebarLayout(
      sidebarPanel(
        numericInput('n', 'Number of obs', 100)
      ),
      mainPanel( wellPanel(wellPanel(plotOutput("densityPlot", height="500px"))), 
                 wellPanel(style = "background-color: #ffffff;", tabsetPanel(type = "tabs", 

                                       tabPanel(h5("Text1"),p("Text" )),
                                       tabPanel(h5("Text2"), p("Text") ),                   
                                       tabPanel(h5("Text3"), p("Text"))),
                           br(),br(),br()                           
                 ))
    )
  )
  ,
  server = function(input, output) {
    output$densityPlot <- renderPlot({ hist(runif(input$n)) })
  }
))

enter image description here