r-即使不满足条件，闪亮的conditionalPanel占位符也会占用空间

Question

我是个新手。我从一些基于数据集的基本项目开始，数据集有一些数字和因子列。

Ui部分如下所示：

ui <- fluidPage(

titlePanel("Title placeholder"),

selectInput(inputId = "Variable", label = strong("Choose variable"),
choices = colnames(data[,colnames(data)!="ID"]),
selected = "A"), 
sliderInput(inputId = "BinsHistogram", label = "Choose no. histogram bins:", min = 5, max = 50, value = 20),

conditionalPanel('input.Variable %in% c("A", "B", "C")', plotOutput("Histogram")),
conditionalPanel('input.Variable %in% c("D", "E", "F")', plotOutput("Groups"))
)

问题在于，如果"；组"；情节是适用的，闪亮的是将其显示在网站的底部，为"；直方图"；情节，即使它没有显示(我想这就是(。我该如何避免这种情况；组"；绘图显示在UI控件的正下方？

Answer 1

@Limey在评论中提到，您需要一个有效的JS条件：

library(shiny)
ui <- fluidPage(
titlePanel("Title placeholder"),
selectInput(inputId = "Variable", label = strong("Choose variable"),
choices = LETTERS[1:6], selected = "A"), 
sliderInput(inputId = "BinsHistogram", label = "Choose no. histogram bins:", min = 5, max = 50, value = 20),
conditionalPanel('["A", "B", "C"].includes(input.Variable)', plotOutput("Histogram")),
# alternativ: input.Variable == "A" || input.Variable == "B" || input.Variable == "C"
conditionalPanel('["D", "E", "F"].includes(input.Variable)', plotOutput("Groups"))
)
server <- function(input, output, session) {
output$Histogram <- output$Groups <- renderPlot({plot(1:10, main = input$Variable)})
}
shinyApp(ui, server)