引导程序的CSS样式不适用于Shiny R

Question

我想更改Shiny应用程序的样式。我到这里https://bootswatch.com/solar/并下载了.css样式file：“ Solar A spin on Solarized”。

library(shiny)

ui <- fluidPage(
    titlePanel(tags$i(h1(strong("My Panel Title"),style = "font-family: 'times'; font-size: 82px"))),align="center",    
    navbarPage(theme="bootstrap.min.css",title = 'Methods',
               tabPanel('One'),
               tabPanel('Two'),
               tabPanel('Three'),
               tabPanel('Four'))
)    

server <- function(input, output) {    

}   

shinyApp(ui = ui, server = server)

但是如您所见，导航栏看起来很奇怪：

我该如何解决？

Answer 1

您链接到的主题是Bootstrap 4主题，但是Shiny使用Bootstrap 3。有关兼容的Bootswatch主题，请参见其v3集合：https ://bootswatch.com/3/ 。

例如，通过CDN使用v3 Flatly主题：

library(shiny)

ui <- fluidPage(
  titlePanel(tags$i(
    h1(strong("My Panel Title"), style = "font-family: 'times'; font-size: 82px")
  )),
  align = "center",
  navbarPage(
    theme = "https://stackpath.bootstrapcdn.com/bootswatch/3.4.1/flatly/bootstrap.min.css",
    title = 'Methods',
    tabPanel('One'),
    tabPanel('Two'),
    tabPanel('Three'),
    tabPanel('Four')
  )
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)