fix standard selector for skyline
Devon Kohler authored on 01/06/2024 16:17:27
• GitHub committed on 01/06/2024 16:17:27
| ... | ... |
@@ -1,7 +1,7 @@ |
| 1 | 1 |
Package: MSstatsShiny |
| 2 | 2 |
Type: Package |
| 3 | 3 |
Title: MSstats GUI for Statistical Anaylsis of Proteomics Experiments |
| 4 |
-Version: 1.7.1 |
|
| 4 |
+Version: 1.7.2 |
|
| 5 | 5 |
Description: MSstatsShiny is an R-Shiny graphical user interface (GUI) |
| 6 | 6 |
integrated with the R packages MSstats, MSstatsTMT, and MSstatsPTM. It |
| 7 | 7 |
provides a point and click end-to-end analysis pipeline applicable to a wide |
| ... | ... |
@@ -31,13 +31,13 @@ qcServer <- function(input, output, session,parent_session, loadpage_input,get_d |
| 31 | 31 |
output$Names = renderUI({
|
| 32 | 32 |
ns <- session$ns |
| 33 | 33 |
if (input$standards == "Proteins") {
|
| 34 |
- if((loadpage_input()$DDA_DIA=="LType" && loadpage_input()$filetype=="sky")||(loadpage_input()$DDA_DIA=="LType" && loadpage_input()$filetype=="ump")){
|
|
| 35 |
- |
|
| 36 |
- selectizeInput(ns("names"), "choose standard", unique(get_data()[2]), multiple = TRUE)
|
|
| 37 |
- } |
|
| 38 |
- else{
|
|
| 39 |
- selectizeInput(ns("names"), "choose standard", unique(get_data()[1]), multiple = TRUE)
|
|
| 40 |
- } |
|
| 34 |
+ # if((loadpage_input()$DDA_DIA=="LType" && loadpage_input()$filetype=="sky")||(loadpage_input()$DDA_DIA=="LType" && loadpage_input()$filetype=="ump")){
|
|
| 35 |
+ # |
|
| 36 |
+ # selectizeInput(ns("names"), "choose standard", unique(get_data()[2]), multiple = TRUE)
|
|
| 37 |
+ # } |
|
| 38 |
+ # else{
|
|
| 39 |
+ selectizeInput(ns("names"), "choose standard", unique(get_data()[1]), multiple = TRUE)
|
|
| 40 |
+ # } |
|
| 41 | 41 |
|
| 42 | 42 |
} |
| 43 | 43 |
else if (input$standards == "Peptides") {
|