चमकदार में पृष्ठभूमि रंग चमकदार

Question

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

बनाने के लिए इसे और अधिक स्पष्ट नीचे चित्र पर एक नजर है कृपया:

अंतर किसी भी tagPanel के अंदर सफेद पृष्ठभूमि क्षेत्र है। भूरे और सफेद का यह संयोजन समस्या है। क्या किसी के पास कोई विचार है, मैं ऐसे टैगपैनल्स कैसे प्राप्त कर सकता हूं।

Answer 1

wellPanel पर एक style विकल्प का उपयोग करें:

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