diff --git a/R/call_rainbow.R b/R/call_rainbow.R index 5ef075b..5ed0ffb 100644 --- a/R/call_rainbow.R +++ b/R/call_rainbow.R @@ -98,8 +98,8 @@ extract_rb_data <- function(xx, format_out = "matrix", colnames(data) <- xx$ylabels if (data_format == "long"){ names_to <- switch(xx$detector, "MS" = "mz", - "UV" = "lambda", - "lambda") + "UV" = "lambda", + "lambda") data <- reshape_chrom(data, data_format = "long", names_to = names_to) } if (format_out == "data.frame"){