R Shiny : Automatic wellpanel wrapping UI

Question

在我的 UI 上，我试图让我的过滤器显示在 wellpanel 中。当应用程序运行时，它看起来像下拉菜单和关联的复选框位于其“顶部”，而不是被包裹在其中。

这是我的意思的图片:http://imgur.com/QJrrseT

可重现的例子:

用户界面

    require(shiny)
    require(devtools)
    library(grDevices)
    library(xlsx)


shinyUI(fluidPage(
  fluidRow(
    column(3,
    wellPanel(
      )),
    column(9,
      fluidRow(
      wellPanel(
          column(3,
              uiOutput("filter1"))
        ))

    ))
))

服务器

shinyServer(function(input, output) {

 output$filter1 <- renderUI({
 selectInput("filter1", label="Filter 1", choices = c("No Filter","a","b"))
 })
})

Answer 1

您可以在 wellPanel 上添加一些样式来处理这个问题:

library(shiny)
runApp(list(ui= fluidPage(
  fluidRow(
    column(3, wellPanel()),
    column(9,
           fluidRow( wellPanel(style = "overflow: hidden;", 
             column(3, uiOutput("filter1"))
           ))
    )
  )
)
, server = function(input, output) {

  output$filter1 <- renderUI({
    selectInput("filter1", label="Filter 1", choices = c("No Filter","a","b")
                , selectize = FALSE)
  })
})
)