shadow_expand_relevel(.var, suffix)

df <- tibble::tribble(
  ~wind, ~temp,
  -99,    45,
  68,    NA,
  72,    25
)

dfs <- bind_shadow(df)

test_shade <- dfs$wind_NA

#  shadow_expand_relevel(test_shade, "weee")

#  dfs %>%
#    mutate(temp_NA = shadow_expand_relevel(temp_NA, "weee"))


# test that this breaks
# shadow_expand_relevel(airquality, "weee")