Parlaklıktaki tabsetPanel'de arka plan rengi

Question

tabsetPanel numaralı telefondan nasıl beyaz arka plan alabilirim. Ben şu var benim ui.R dosyasında

:

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()       
    )) 

daha net aşağıdaki resimde de bakabilirsiniz lütfen yapmak için benim sorunun iyi anlaşılması için ben bir örnek getirmek gerekir:

Fark, herhangi bir tagPanel'in içindeki beyaz arka plan alanıdır. Gri ve beyazın bu kombinasyonu sorun. Birisi var, böyle bir tagPanals nasıl alabilirim.

Answer 1

wellPanel üzerinde style seçeneğini kullanın:

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)) }) 
    } 
))