R Shiny - 條件面板中的列在側邊欄面板之外

Question

我正在編輯現有的 R Shiny 應用程序： 鏈接。 在ui.R中，第 48 行之后，我想在conditionalPanel中添加其他信息。 我已將代碼更新為如下所示：

 conditionalPanel('input.showDendo==1', hr(), h4('Dendrogram Manipulation'), selectInput('dendrogram','Dendrogram Type',choices = c("both", "row", "column", "none"),selected = 'both'), selectizeInput("seriation", "Seriation", c(OLO="OLO",GW="GW",Mean="mean",None="none"),selected = 'OLO'), sliderInput('branches_lwd','Dendrogram Branch Width',value = 0.6,min=0,max=5,step = 0.1) ), hr(), h4("Row Dendrogram"), column( width = 6, selectizeInput("distFun_col", "Distance Method", c(Euclidean = "euclidean", Maximum = "maximum", Manhattan = "manhattan", Canberra = "canberra", Binary = "binary", Minkowski = "minkowski"), selected = "euclidean"))

而且我無法弄清楚為什么下拉菜單在圖像中看到的sideBarPanel的灰色背景“外部”：

Answer 1

由於此應用程序的 styles，您需要將列寬設置為 12 或添加另一個col-sm-6元素，然后添加<br>和<hr> ：

hr(),
h4("Row Dendrogram"),
column(
  width = 12,
  selectizeInput("distFun_col",
                 "Distance Method",
                 c(Euclidean = "euclidean",
                   Maximum = "maximum",
                   Manhattan = "manhattan",
                   Canberra = "canberra",
                   Binary = "binary",
                   Minkowski = "minkowski"),
                 selected = "euclidean")),
br(),
hr(),

然后，它應該如下所示：

發生這種情況是因為col-sm-*類有float: left; 屬性，這使它們變得不高，因此它們溢出父容器。