unexpected error with a particular small dataframe

[njtierney]

dat_ms <- tibble::tribble(~x,  ~y,    ~z,
                          1,   "A",   -100,
                          3,   "N/A", -99,
                          NA,  NA,    -98,
                          -99, "E",   -101,
                          -98, "F",   -1)

visdat::vis_miss(dat_ms)
#> Warning in seq_len(nrow(x)): first element used of 'length.out' argument
#> Error in mutate_impl(.data, dots): Evaluation error: argument must be coercible to non-negative integer.

[njtierney]

This was fixed 4878053 - ended up being the same issue as #75

library(visdat)
dat_ms <- tibble::tribble(~x,  ~y,    ~z,
                          1,   "A",   -100,
                          3,   "N/A", -99,
                          NA,  NA,    -98,
                          -99, "E",   -101,
                          -98, "F",   -1)

visdat::vis_miss(dat_ms)

visdat::vis_dat(dat_ms)

Created on 2018-06-07 by the reprex package (v0.2.0).