Мне нужно установить разные цвета фона для разных страниц.К сожалению, я не очень силен в CSS, и в моем текущем решении цвет, заданный для первой страницы, присваивается всем страницам.
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(
title = "Shiny"
),
dashboardSidebar(
sidebarMenu(
menuItem("Section_1", tabName = "section_1", icon = icon("align-justify"),
startExpanded = TRUE, selected = TRUE),
menuItem("Section_2", tabName = "section_2", icon = icon("align-justify")),
menuItem("Section_3", tabName = "section_3", icon = icon("align-justify"))
)
),
dashboardBody(
tabItems(
tabItem("section_1",
tags$style(HTML('.content-wrapper, content{background-image: linear-gradient(45deg,#0acbdb,#7028e4)}')),
h1("TITLE 1")),
tabItem("section_2",
tags$style(HTML('.content-wrapper, content{background-color: #7028e4}'))
h1("TITLE 2")),
tabItem("section_3",h1("TITLE 3"))
)
)
)
server <- function(input, output) {}
shinyApp(ui,server)