r - 如何将表格添加到 Shiny 条件面板的隐藏选项中？

Question

我正在创建一个应用程序，它有一个 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 中实现吗？

提前非常感谢

问候

Answer 1

您可以将内联样式添加到条件面板:

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