मेरे पास नीचे चमकदार ऐप है जिसमें मेरे पास टैबपैनल हैं जो selectInput() पर आधारित हैं। क्या टैबपैनल्स नामों के फ़ॉन्ट और फ़ॉन्ट रंग को बदलने का कोई तरीका है?

library(shiny)

# Define UI for random distribution app ----
ui <- fluidPage(

  # App title ----
  titlePanel("Tabsets"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(
      selectInput("sec","Page",choices=c("Introduction","Explore Funds"),selected = "Introduction"),





    ),

    # Main panel for displaying outputs ----
    mainPanel(
      uiOutput("tabers"),



    )
  )
)

# Define server logic for random distribution app ----
server <- function(input, output) {
  output$tabers<-renderUI({
    if(input$sec=="Introduction"){
      tabsetPanel(id="I",type="tabs",tabPanel("Introduction", id = "StartHR"))
    }
    else{
      tabsetPanel(id="I2",type="tabs",tabPanel("Explore Funds", id = "StartHR2"))

    }
                                              })


}

# Create Shiny app ----
shinyApp(ui, server)
0
firmo23 17 अक्टूबर 2019, 21:16

1 उत्तर

सबसे बढ़िया उत्तर

इस सीएसएस का प्रयोग करें:

.nav-tabs>li>a {
  font-family: "Lucida Sans", sans-serif;
  color: red;
}

आपको इसे एक tags$style में रखना होगा:

css <- '.nav-tabs>li>a {
  font-family: "Lucida Sans", sans-serif;
  color: red;
}'

ui <- fluidPage(
  tags$head(tags$style(HTML(css))),
  ......
1
Stéphane Laurent 17 अक्टूबर 2019, 22:56