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
时,它会更受欢迎,所以另一个必须是灰色而不是白色,就像我上传的图片一样。你知道吗怎样才能达到这种风格?@你应该考虑为此提出一个单独的问题。