有光泽的应用程序在选定的行上做limma

Question

我正在开发一个shiny应用程序。我有张桌子贴在下面。我希望能够选择行并将它们保存在组中，如变型group1、通配型开发小时:4.3hpf group2、通配型开发时间:2.5hpf组3等等。然后，我想对我保存的组调用limma分析。

GSM814795   subtype: Sb morphant    development hour: 4.3 hpf    
GSM814796   subtype: Sb morphant    development hour: 4.3 hpf
GSM814797   subtype: Sb morphant    development hour: 4.3 hpf
GSM814798   subtype: wildtype       development hour: 4.3 hpf
GSM814799   subtype: wildtype       development hour: 4.3 hpf
GSM814800   subtype: wildtype       development hour: 4.3 hpf
GSM814801   subtype: wildtype       development hour: 2.5 hpf
GSM814802   subtype: wildtype       development hour: 2.5 hpf
GSM814803   subtype: wildtype       development hour: 4 hpf
GSM814804   subtype: wildtype       development hour: 4 hpf

Answer 1

下面我的问题可以用来回答我的问题。

在数据上传之后，上面分配给data.frame的对象需要在DT包中指定如下：

DT::datatable(inputFile, selection = list(target='row'),rownames = TRUE, options= list(pageLength=3), colnames = c('ID' = 1))

这使得数据的逐行选择成为可能，该数据可以绑定到操作按钮以通过；

output$dataUpload <- reactive ({
    return(!is.null(input$uploadedData))
})

group1 <- input$uploadedData[,input$uploadedData_rows_selected]