mag field pq: take the one at lowest position (not strictly 0)

f-hafner · Sep 12, 2023 · 40645eb · 40645eb
1 parent 38616c7
commit 40645eb
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)