fill NAs

EhrmannS · EhrmannS · commit 8a17d42a7f3c · 2026-05-05T05:34:44.000+02:00
diff --git a/R/getIDVars.R b/R/getIDVars.R
@@ -121,6 +121,11 @@ getIDVars <- function(schema = NULL, input = NULL){
                   tidyr::extract(col = 1, into = names(temp)[iy], regex = tempVar$split)
               }) %>% bind_cols(.name_repair = "check_unique")
             }
+            # fill NAs introduced by non-matching rows after split
+            if(anyNA(temp[1])){
+              temp <- temp %>%
+                fill(1, .direction = "down")
+            }
           }
 
           # ... or merge the variable
diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -38,8 +38,6 @@ reference:
       - .eval_sum
       - .expect_valid_table
       - .getColTypes
-      - .reportProblems
-      - .spliceHeader
       - .tidyVars
       - .updateFormat
       - show,schema-method

Original file line number	Diff line number	Diff line change
`@@ -121,6 +121,11 @@ getIDVars <- function(schema = NULL, input = NULL){`
`121`	`121`	`tidyr::extract(col = 1, into = names(temp)[iy], regex = tempVar$split)`
`122`	`122`	`}) %>% bind_cols(.name_repair = "check_unique")`
`123`	`123`	`}`
	`124`	`+ # fill NAs introduced by non-matching rows after split`
	`125`	`+ if(anyNA(temp[1])){`
	`126`	`+ temp <- temp %>%`
	`127`	`+ fill(1, .direction = "down")`
	`128`	`+ }`
`124`	`129`	`}`
`125`	`130`
`126`	`131`	`# ... or merge the variable`