我有一個 Shiny 應用程式，我想在其中的一些 UI 元素之間有一個垂直分隔線（垂直線），這些元素都在同一個流體行（）中。在非常簡單的例子（如下）中，我想看到這個：
我找到了一些關于如何使用 CSS 進行操作的建議，但我找不到將它們集成到我的 Shiny 應用程式中的方法。（顯然，我不知道 CSS。）實際的應用程式當前正在使用 Shiny、shinydashboard 和 Shinydashboardplus，如果有幫助的話。
library(shiny)
library(shinydashboard)
ui <- fluidPage(
# Application title
titlePanel("Divider example"),
mainPanel(
fluidRow(
column(12,
plotOutput("distPlot")
)
),
fluidRow(
column(6,
sliderInput(inputId = 'sldNumPts', min = 10, max = 1000,
value = 50, label = 'Number of Points')
),
column(6,
sliderInput(inputId = 'sldBreaks', min = 10, max = 50,
value = 10, label = 'Number of Breaks'),
radioButtons(inputId = 'rdoColor', label = 'Color',
choices = c('red', 'green', 'blue'),
inline = TRUE)
)
)
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$distPlot <- renderPlot({
hist(rnorm(input$sldNumPts), breaks = input$sldBreaks,
col = input$rdoColor, border = 'white')
})
}
# Run the application
shinyApp(ui = ui, server = server)
uj5u.com熱心網友回復：
您可以通過style引數添加 CSS 。在這種情況下，您可以column在您的ui:
library(shiny)
library(shinydashboard)
ui <- fluidPage(
# Application title
titlePanel("Divider example"),
mainPanel(
fluidRow(
column(12,
plotOutput("distPlot")
)
),
fluidRow(
column(6,
sliderInput(inputId = 'sldNumPts', min = 10, max = 1000,
value = 50, label = 'Number of Points')
),
column(6,
sliderInput(inputId = 'sldBreaks', min = 10, max = 50,
value = 10, label = 'Number of Breaks'),
radioButtons(inputId = 'rdoColor', label = 'Color',
choices = c('red', 'green', 'blue'),
inline = TRUE),
style = 'border-left: 1px solid'
)
)
)
)
有關將 CSS 集成到您的shiny應用程式的更多資訊，請參閱此資源。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/350436.html
上一篇：R如何計算PCA橢圓？