如何在 Shiny 的 ConditionalPanel 中将列表添加到隐藏的选项中？

Posted 2023-03-05

【中文标题】如何在 Shiny 的 ConditionalPanel 中将列表添加到隐藏的选项中？

【英文标题】：How to add tabulation to the hidden choices from a ConditionalPanel in Shiny?

【发布时间】：2022-01-17 16:27:37

【问题描述】：

我正在创建一个应用程序，其中有一个checkboxInput，如果您单击它，您将有另一个选项可供选择。这些选项被conditionalPanel 隐藏。只有单击复选框才能看到它们。

但是，我想知道是否可以将一些表格放入这些选项中，因为我不希望它们具有相同的组织级别。 例如：

代码：

library(shiny)


ui <- fluidPage(
  
  titlePanel("My app"),
  
  sidebarLayout(
    sidebarPanel(
      tabsetPanel(

        tabPanel("Tab1",
                 checkboxInput("option1", "Remove...", value = FALSE),
                 
                 conditionalPanel(
                   condition = "input.option1 == 1",
                   radioButtons(inputId = "type_removal", label=NULL,
                                choices = c("Remove 1" = "remove1",
                                            "Remove 2" = "remove2"))),
                 
                  textInput(inputId = "data2", "Data1", value = "data")),
        
        tabPanel("Tab2",
                textInput(inputId = "data", "Data1", value = "data")
       ),
      
      )
    ),
    
    mainPanel(
     
    )
  )
)


server <- function(input, output) 



shinyApp(ui = ui, server = server)

在 Shiny 中可以做到吗？

提前非常感谢

问候

【参考方案1】：

您可以在条件面板中添加内联样式：

             conditionalPanel(
               condition = "input.option1 == 1",
               style = "margin-left: 100px;",
               radioButtons(inputId = "type_removal", label=NULL,
                            choices = c("Remove 1" = "remove1",
                                        "Remove 2" = "remove2"))),

【参考方案2】：

将此 CSS 添加到您的闪亮应用中：

.shiny-options-group
  margin-left: 20px;