在 shinyApp 界面中添加一条直线

Question

我有一个可以显示图表的 shinyApp。

看起来像这样：

如您所见，左侧有几个交互式显示。

我想在这些交互和情节之间创建某种分离。一条离散的直线就足够了。

类似于下一张图片。

我在哪里可以找到这个？应该是一些 css 或者 js 函数？

Answer 1

我假设您的 ui 是 build，带有 fluidPage，fluidRow 和列。

您可以在列中添加 style 属性，并向包含绘图的列添加左边框。

从他们的教程中获取一些基本的闪亮示例，我在那里添加了红色边框

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(4,
      sliderInput("obs", "Number of observations:",
                  min = 1, max = 1000, value = 500)
    ),
    column(
      8,
      plotOutput("distPlot"),
      style = "border-left: 1px solid red;"
    )
  )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs))
  })
}

shinyApp(ui, server)

在 shinyApp 界面中添加一条直线

Add a straight line in shinyApp interface

r

shiny