Question

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

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的高度？

Answer 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'",)
  )
)

Answer 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)

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

2 个答案: