Pozioma reguła hr() w R Błyszczący pasek boczny

Question

Zazwyczaj można zastosować regułę poziomą w elementach interfejsu użytkownika z wartością hr(), gdy używana jest wersja fluidRow() w wersji Shiny, ale nie można tego zrobić w postaci tekstowej pod sideBarPanel(). Jak utworzyć regułę poziomą lub coś podobnego, aby podzielić elementy tekstu i interfejsu użytkownika na moim pasku bocznym?

Answer 1

Generalnie linia jest widoczna, ale z bardzo niskim kontrastem do tła. Aby linia bardziej widoczne można zmodyfikować kod CSS za tym następujące w części Ui:

tags$head(
    tags$style(HTML("hr {border-top: 1px solid #000000;}")) 
), 

dla pełnego przykład roboczej patrz poniżej:

library(shiny) 

ui <- fluidPage(
    tags$head(
    tags$style(HTML("hr {border-top: 1px solid #000000;}")) 
), 
    sidebarLayout(
     sidebarPanel(
     "text", 
     hr(), 
     uiOutput("out") 
    ), 
     mainPanel(
     plotOutput("distPlot") 
    ) 
    ) 
) 

server <- function(input, output) { 
    output$out <- renderUI({ 
    sliderInput("bins", 
       "Number of bins:", 
       min = 1, 
       max = 50, 
       value = 30) 
    }) 
} 


shinyApp(ui = ui, server = server) 

Albo był jakiś inny problem?