孔面板的发光高度无法适应内容

问题描述

我在有光泽的应用程序的操作面板中使用了条件面板。可悲的是，孔面板的高度无法适应条件面板。我的代码如下：

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)),numericInput("normal_var","Variance:",value = 0))
    ),conditionalPanel(condition = "input.distribution == 'Uniform'",)
  )
)))

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

shinyApp(ui,server)

是否可以调整wellPanel的高度？

解决方法

这似乎是由您奇怪的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'",)
  )
)

,

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

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

ui <- fluidPage(fluidRow(fluidRow(
  wellPanel(
    selectInput("distribution",value = 0))
    ),),style = "padding: 80px;"
  )
)))

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

shinyApp(ui,server)