vec <- factor(LETTERS[1:10])
vec[sample(1:10, 3)] <- NA
vec
impute_factor(vec, "wat")
library(dplyr)
dat <- tibble(
  num = rnorm(10),
  int = rpois(10, 5),
  fct = factor(LETTERS[1:10])
) %>%
  mutate(
    across(
      everything(),
      \(x) set_prop_miss(x, prop = 0.25)
    )
  )
dat
dat %>%
  nabular() %>%
  mutate(
    num = impute_fixed(num, -9999),
    int = impute_zero(int),
    fct = impute_factor(fct, "out")
  )
Run the code above in your browser using DataLab