#css #r #shiny
#css #r #блестящий
Вопрос:
Как я могу получить белый фон tabsetPanel
. Для лучшего понимания моей проблемы я приведу пример:
В моем пользовательском интерфейсе.В 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()
))
Чтобы сделать это более понятным, пожалуйста, посмотрите на картинку ниже:
Разница заключается в области белого фона внутри любой панели тегов. Эта комбинация серого и белого является проблемой. У кого-нибудь есть идея, как я могу получить такие панели тегов.
Ответ №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)) })
}
))
Комментарии:
1. Возможно ли управлять цветом фона для любого tabPanal, например, первый — белый, второй — серый, а третий — светло-голубой? В этом случае все они имеют одинаковый цвет. И это предпочтительнее, когда один щелчок
Text1
, поэтому другой должен быть серым, а не белым, как на картинке, которую я загрузил.2. Есть идеи, как можно достичь этого стиля?
3. @ И вам следует задать отдельный вопрос по этому поводу