change in rename response,

R/LFQData.R

@@ -7,6 +7,7 @@
 #' istar <- prolfqua_data('data_ionstar')$filtered()
 #'
 #' data <- istar$data |> dplyr::filter(protein_Id %in% sample(protein_Id, 100))
+#' #LFQData$debug("rename_response")
 #' lfqdata <- LFQData$new(data, istar$config)
 #' tmp <- lfqdata$to_wide()
 #' stopifnot("data.frame" %in% class(tmp$data))
@@ -18,7 +19,7 @@
 #' lfqdata$omit_NA()
 #'
 #' lfqdata$response()
-#' lfqdata$rename_response()
+#' lfqdata$rename_response("peptide.intensity")
 #' lfqdata$response()
 #' lfqdata$get_Plotter()$heatmap()
 #' stopifnot("LFQData" %in% class(lfqdata$get_copy()))
@@ -176,14 +177,14 @@ LFQData <- R6::R6Class(
     #' @param newname default Intensity
     rename_response = function(newname = "Intensity"){
       if((newname %in% colnames(self$data))){
-        logger::log_messages(paste(newname, " already in data :", colnames(self$data), ".", collapse = " "))
+        msg <- paste(newname, " already in data :", paste( colnames(self$data), collapse = " "), ".")
+        logger::log_info(msg)
         logger::log_error("provide different name.")
-        stop()
+      } else {
+        old <- self$config$table$popWorkIntensity()
+        self$config$table$setWorkIntensity(newname)
+        self$data <- self$data |> dplyr::rename(!!newname := !!sym(old))
       }
-
-      old <- self$config$table$popWorkIntensity()
-      self$config$table$setWorkIntensity(newname)
-      self$data <- self$data |> dplyr::rename(!!newname := !!sym(old))
     },
     #' @description
     #' number of elements at each level