时间戳

首页 > 解决方案 > 井面板的闪亮高度不适应内容

html - 井面板的闪亮高度不适应内容

问题描述

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

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？

标签： htmlrtwitter-bootstraplayoutshiny

解决方案

这似乎是你的奇怪造成的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'",)
  )
)

推荐阅读