miss_analyze: error with mixed data about kirkegaard HOT 1 CLOSED

> iris %>% miss_add_random() %>% miss_analyze()
             Sepal.Length Sepal.Width Petal.Length Petal.Width Species
Sepal.Length           NA       0.023        -0.46       -0.41    0.31
Sepal.Width         0.050          NA         0.28        0.21    0.14
Petal.Length       -0.193       0.116           NA       -0.17    0.23
Petal.Width         0.037       0.789        -0.11          NA    0.19
Species            -0.247      -0.026        -0.25       -0.13      NA

> iris %>% miss_add_random() %>% cbind(chr = sample(c("A", "B", "C", NA), 150, T)) %>% miss_analyze()
             Sepal.Length Sepal.Width Petal.Length Petal.Width Species  chr
Sepal.Length           NA       -0.16        0.558       0.580    0.32 0.24
Sepal.Width        -0.245          NA       -0.374      -0.272    0.39 0.46
Petal.Length       -0.016        0.30           NA      -0.276    0.19 0.20
Petal.Width        -0.050       -0.43       -0.100          NA    0.07 0.27
Species             0.080       -0.10       -0.023      -0.066      NA 0.19
chr                -0.208        0.11       -0.065       0.040    0.10   NA
> iris %>% miss_add_random() %>% cbind(chr = sample(c("A", "B", "C", NA), 150, T)) %>% miss_amount()
cases with missing data  vars with missing data cells with missing data 
                   0.52                    1.00                    0.12