From 8f07b13da47a56e912c8bb8840186e345149fb47 Mon Sep 17 00:00:00 2001 From: Karin Schork Date: Thu, 8 Aug 2024 11:57:50 +0200 Subject: [PATCH] fix order of columns fpr valid value plot --- R/workflow_QC.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/R/workflow_QC.R b/R/workflow_QC.R index 0a75319..c84ed04 100644 --- a/R/workflow_QC.R +++ b/R/workflow_QC.R @@ -143,6 +143,10 @@ workflow_QC <- function(data_path, vv_plot_data <- ValidValuePlot(D_long = prepared_data[["D_long"]], use_groups = use_groups, groupvar_name = groupvar_name, group_colours = group_colours, base_size = base_size) + #### reorder valid values table to stay in the same order as the original data #### + cnames <- colnames(prepared_data$D) + vv_plot_data$table$name <- factor(vv_plot_data$table$name, levels = cnames) + vv_plot_data$table <- vv_plot_data$table[order(vv_plot_data$table$name),] mess <- paste0(mess, vv_plot_data[["message"]])