A     B     C     D
  <chr> <chr> <chr> <chr>
1 X123  X456  K234  V333
2 X456  Z000  L888  B323
3 X789  ZZZZ  D345  O999
4 M111  M111  M111  M111
.
.
.
(5000 rows)

> vec <- c("X123","X456")
> vec
[1] "X123" "X456"

A     B     C     D      lgl
<chr> <chr> <chr> <chr>  <lgl>
1 X123  X456  K234  V333   TRUE
2 X456  Z000  L888  B323   TRUE
3 X789  ZZZZ  D345  O999   FALSE
4 M111  M111  M111  M111   FALSE

> tib %>%
+   pmap_lgl(~any(..1 %in% vec))
[1]  TRUE  TRUE FALSE FALSE

df$lgl <- apply(df, 1, function(x) any(x %in% vec))