order PC_OUT

PEM-Humboldt · Oct 4, 2023 · 567051b · 567051b
1 parent 190d76b
commit 567051b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/00_dpc_analyisis/dpc_analyisis.R b/scripts/00_dpc_analyisis/dpc_analyisis.R
@@ -193,7 +193,7 @@ output<- tryCatch({
 
   dPC_template<- dplyr::select(spatial_unit_data,c("group_n", group)) %>% dplyr::distinct()
   dPC_correct<- list(dPC, dPC_template) %>% plyr::join_all() %>% dplyr::select(-"group_n") %>% 
-    dplyr::relocate(group, .after = 1)
+    dplyr::relocate(group, .after = 1) %>% dplyr::relocate(PC, .before= PC_out)
 
 
   # Define protcom result output