R Shiny生成具有无功输入的表

Question

我正试图在R的闪亮应用中建立一个概念上简单的逻辑链。

我有一个生成表格的函数。

OutputTable <- FindMarkers(P15CellsSeurat, 0, 1, min.pct = 0.25)

上面例子中生成的表格是0和1组的比较。我想做的是使这个交互式闪亮，这样用户就可以选择他们想要比较的0-4组和然后收到一个与他们的选择相对应的表格。

我试图设置它，这就是它的样子：

#ui.R
library(shiny)
 mainPanel(h1("Title", align = "center"),
              tabsetPanel(type="tabs",

                         tabPanel("Compare Clusters",
                                   h4("Compare Gene Expression Between Clusters", align = "center"),
                                   br(),
                                   plotOutput("plot_P15Clusters_dup"),
                                   fluidRow(
                                   column(6,
                                   checkboxGroupInput("input$ClusterVariable1",
                                                      label = h4("Clusters"),
                                                      choices = list("Cluster 0" = 1,
                                                                     "Cluster 1" = 2,
                                                                     "Cluster 2" = 3,
                                                                     "Cluster 3" = 4,
                                                                     "Cluster 4" = 5),
                                                      selected = 1)
                                   ),
                                   column(6,
                                   checkboxGroupInput("input$ClusterVariable2",
                                                      label = h4("Clusters"),
                                                      choices = list("Cluster 0" = 1,
                                                                     "Cluster 1" = 2,
                                                                     "Cluster 2" = 3,
                                                                     "Cluster 3" = 4,
                                                                     "Cluster 4" = 5),
                                                      selected = 2)
                                   ),
                                   submitButton("Submit")),
                                   dataTableOutput("Table6")),
)
)
)

     #server.R
        shinyServer(function(input, output){

    output$cluster.markers <- renderUI(FindMarkers(P15CellsSeurat, input$`input$ClusterVariable1`, c(input$`input$ClusterVariable2`), min.pct = 0.25))

      output$Table6 <- renderDataTable(
        cluster.markers,
        options = list(
          lengthMenu = list(c(10, 20, 30,-1),c('10','20','30','ALL')),
          pageLength = 10))

ClusterVariable1 <- reactive({input$ClusterVariable1})
ClusterVariable2 <- reactive({input$ClusterVariable2})

})

我试图只选择代码的相关部分，所以如果有任何遗漏（），我道歉。

我一直错误地说错误：对象＆＃39; cluster.markers＆＃39;没找到。

因此，任何帮助正确生成cluster.markers对象的帮助都将是一个很大的帮助！

感谢您的帮助和耐心，因为我试图提高我对如何在闪亮中使用反应物体的理解。