R data manipulation request

ashlee.R

# Passing over a set of columns and passing out 0 || 1 depending on any value
# matching specified flag 

library("tidyverse") # %>%, pmap, mutate, select
library("DescTools") # %like%
# I would very much like to use importFrom but don't have a NAMESPACE here

# putting this here just to clarify the mutate call below
is.parent <- function(xs) any(xs == "08")

# tibble/dataframe df created containing your data

# get all of the columns which match the pattern RELAT[something] in name
df[names(df) %like% "RELAT%"] %>%
  # for each row create a 'parent' value if some of the variables satisfy in.parent
  mutate(parent = pmap(., ~some(., is.parent))) %>%
  # faff which takes just that column, turns it into an integer (as requested)
  select(parent) %>%
  map(as.integer) -> df$parent 
  # write it out to the parent variable of your df