井面板的闪亮高度不适应内容答案

【问题标题】：Shiny height of well panel doesn't adjust to content井面板的闪亮高度不适应内容
【发布时间】：2023-03-24 08:35:02
【问题描述】：

我在闪亮的应用程序的井面板内使用条件面板。遗憾的是，井面板的高度没有根据条件面板进行调整。我的代码如下所示：

library(shiny)

supp_distr_names <- c("Normal", "Uniform")

ui <- fluidPage(fluidRow(fluidRow(
  wellPanel(
    selectInput("distribution",
                "Select distribution:",
                choices = supp_distr_names),
    conditionalPanel(
      condition = "input.distribution == 'Normal'",
      column(width = 6, numericInput("normal_mean", "Mean:", value = 0)),
      column(width = 6, numericInput("normal_var", "Variance:", value = 0))
    ),
    conditionalPanel(condition = "input.distribution == 'Uniform'",)
  )
)))

server <- function(input, output, session) {
}

shinyApp(ui, server)

有没有办法让wellPanel的高度调整？

【问题讨论】：

标签： html r twitter-bootstrap layout shiny

【解决方案1】：

这似乎是由你奇怪的fluidRow(fluidRow(引起的。这样可以正常工作：

ui <- fluidPage(
  wellPanel(
    selectInput("distribution",
                "Select distribution:",
                choices = supp_distr_names),
    conditionalPanel(
      condition = "input.distribution == 'Normal'",
      fluidRow(
        column(width = 6, numericInput("normal_mean", "Mean:", value = 0)),
        column(width = 6, numericInput("normal_var", "Variance:", value = 0))
      )
    ),
    conditionalPanel(condition = "input.distribution == 'Uniform'",)
  )
)

【讨论】：

【解决方案2】：

您可以将style = "padding: 80px;" 添加到wellPanel

library(shiny)
supp_distr_names <- c("Normal", "Uniform")

ui <- fluidPage(fluidRow(fluidRow(
  wellPanel(
    selectInput("distribution",
                "Select distribution:",
                choices = supp_distr_names),
    conditionalPanel(
      condition = "input.distribution == 'Normal'",
      column(width = 6, numericInput("normal_mean", "Mean:", value = 0)),
      column(width = 6, numericInput("normal_var", "Variance:", value = 0))
    ),
    conditionalPanel(condition = "input.distribution == 'Uniform'",),
    style = "padding: 80px;"
  )
)))

server <- function(input, output, session) {
}

shinyApp(ui, server)

【讨论】：