@@ -164,6 +164,7 @@ qcServer <- function(input, output, session,parent_session, loadpage_input,get_d

       if(loadpage_input()$DDA_DIA == "TMT"){

         plot <- dataProcessPlotsTMT(preprocess_data(),

                             type=input$type1,

+                            featureName = input$fname,

                             ylimUp = FALSE,

                             ylimDown = FALSE,

                             which.Protein = protein,

@@ -236,7 +236,7 @@ qcUI <- function(id) {

                           #                  tags$br(),

                           #                  tags$h4("Calculation in progress...")),

                           uiOutput(ns("showplot")),

-                          disabled(downloadButton(ns("saveplot"), "Save this plot"))

+                          # disabled(downloadButton(ns("saveplot"), "Save this plot"))

                  ),

                  tabPanel("Download Data", 

                           #verbatimTextOutput('effect'),