From 40645eb6669aa7a72d72a210ba1a08aeed6a0866 Mon Sep 17 00:00:00 2001
From: f-hafner <hafner.flavio@gmail.com>
Date: Tue, 12 Sep 2023 19:36:23 +0000
Subject: [PATCH] mag field pq: take the one at lowest position (not strictly
 0)

---
 R/define_field.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/define_field.R b/R/define_field.R
index 863499f..9a8a513 100644
--- a/R/define_field.R
+++ b/R/define_field.R
@@ -43,7 +43,9 @@ define_field <- function(tbl, conn, from, ...) {
   if (from == "graduates") {
     person_id <- "goid"
     person_field <- dplyr::tbl(conn, "pq_fields_mag") %>%
-      dplyr::filter(.data$position == 0) %>%
+      dplyr::group_by(.data[[person_id]]) %>%
+      dplyr::filter(.data$position == min(.data$position)) %>%
+      dplyr::ungroup() %>%
       dplyr::select(.data[[person_id]],
                     fieldname_pq = .data$fieldname,
                     .data$mag_field0)