tibble(x=rep(NA_real_, 1000000)) %>% mutate(x = 1)                                                                           
# mutate: changed 1,000,000 values (100%) of 'x' (1000000 fewer NA)