# NOT RUN {
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")
# }
Run the code above in your browser using DataLab