fails when total=TRUE if a factor has no NA but has NA levels

[DanChaltiel]

replace
.showNA = showNA == "always" || showNA == "ifany" && (anyNA(x))
by
.showNA = showNA == "always" || showNA == "ifany" && (anyNA(x) || anyNA(levels(x)))

reprex:

debugonce(crosstable:::summarize_categorical_single)
a = mtcars2 %>% 
  mutate(am = ifelse(runif(n())>.8 & vs=='vshaped', NA, am) %>% factor() %>% fct_na_value_to_level()) 
a %>% crosstable(am, by=vs, total="row")