Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/neo4j/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Css tabsetPanel中的背景色为闪亮_Css_R_Shiny - Fatal编程技术网

Css tabsetPanel中的背景色为闪亮

Css tabsetPanel中的背景色为闪亮,css,r,shiny,Css,R,Shiny,如何在tabsetPanel中获得白色背景。为了更好地理解我的问题,我将举一个例子: 在我的ui.R文件中,我有以下内容: mainPanel( wellPanel(wellPanel(plotOutput("densityPlot", height="500px"))), wellPanel(tabsetPanel(type = "tabs", tabPanel(h5("Text1"),p("Text" )),

如何在
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()                           
    ))
为了更清楚,请看下图:


区别在于任何标记面板内部的白色背景区域。灰色和白色的结合就是问题所在。有人知道,我如何才能得到这样的标签。

使用
井面板上的
样式
选项

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)) })
  }
))
runApp(列表(
ui=fluidPage(
titlePanel(“你好,闪亮!”),
侧边栏布局(
侧栏面板(
数字输入('n','OB数',100)
),
主面板(井面板(井面板(plotOutput(“densityPlot”,height=“500px”))),
wellPanel(style=“background color:#ffffff;”),tabsetPanel(type=“tabs”,
选项卡面板(h5(“文本1”)、p(“文本”),
选项卡面板(h5(“文本2”)、p(“文本”),
选项卡面板(h5(“文本3”)、p(“文本”),
br(),br(),br()
))
)
)
,
服务器=功能(输入、输出){

输出$densityPlot是否可以控制任何选项卡的背景色,例如第一个是白色,第二个是灰色,第三个是浅蓝色?在这种情况下,它们都有相同的颜色。当单击
Text1
时,它会更受欢迎,所以另一个必须是灰色而不是白色,就像我上传的图片一样。你知道吗怎样才能达到这种风格?@你应该考虑为此提出一个单独的问题。