Как покрасить всю страницу Navbar в блестящий - PullRequest
Новая
       28

Как покрасить всю страницу Navbar в блестящий

0 голосов
/ 19 марта 2020

Следующий код выполняет почти то, что я хочу: 

ui <- fluidPage(

  tags$style(HTML(".navbar{background-color: #690a20;}")),

  navbarPage(
    title='Navbar',

    tabPanel(
      title = "start page",

      fillPage(
        fluidRow(style = "background-color: #690a20;color: white;",
                 br(),
                 br(),
                 headerPanel(h1("WELCOME", align='center')),
                 h4("Thank you for participating",
                    align='center'),
                 br(),
                 br(),
                 br())
   ))))

server <- shinyServer(function(input, output, session) {})

shinyApp(ui = ui, server = server)

Но я хочу избавиться от белой полосы между панелью навигации и страницей с текучей средой. У кого-нибудь есть идея сделать это? Я попробовал это, скрыв панель навигации, но это все еще оставляет крошечную полоску.

Ответы [ 2 ]

0 голосов
/ 20 марта 2020

Мне удалось найти решение моей проблемы: 

library(shiny)
library(shinyjs)


ui <- fluidPage(

  useShinyjs(),
  tags$style(type='text/css', "nav.navbar.navbar-default.navbar-static-top{border-color: #f5f5f5;background-color: #f5f5f5;}"),
  tags$style(type='text/css', ".navbar{min-height: 0px; margin-bottom: 0px;}"),
  tags$style(type='text/css', ".navbar-brand{height: 0px; padding: 0px 0px;}"),


  tags$style(HTML(".navbar{background-color: #690a20;}")),

  navbarPage(
    title=NULL, id="navigation-bar",

    tabPanel(
      title = "start page",

      fillPage(
        fluidRow(style = "background-color: #690a20;color: white;",
                 br(),
                 br(),
                 headerPanel(h1("WELCOME", align='center')),
                 h4("Thank you for participating",
                    align='center'),
                 br(),
                 br(),
                 br())
      ))))

server <- shinyServer(function(input, output, session) {

  observe(
    {
      hide(selector = "#navigation-bar")
    })
})


shinyApp(ui = ui, server = server)
0 голосов
/ 19 марта 2020

Будет ли этого достаточно? 

library(shiny)
ui <- fluidPage(

    tags$style(HTML(".navbar{margin:0px;background-color: #690a20;}")),
    navbarPage(
        title='Navbar',
        tabPanel(
            title = "start page",
            fillPage(
                fluidRow(style = "background-color: #690a20;color: white;",
                         br(),
                         br(),
                         headerPanel(h1("WELCOME", align='center')),
                         h4("Thank you for participating",
                            align='center'),
                         br(),
                         br(),
                         br())
            ))))

server <- shinyServer(function(input, output, session) {})

shinyApp(ui = ui, server = server)

enter image description here

...