Стиль CSS от bootswatch не работает на Shiny R

Question

Я хочу изменить стиль моего приложения Shiny. Я зашел сюда https://bootswatch.com/solar/ и скачал стиль .css file: "Солнечное вращение в 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/.

Например, использование темы v3 Flatly через CDN:

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)