Fix data tab

[strengejacke]

Still needs fixing:

  data(efc, package = "datawizard")
  set.seed(123)
  efc$weights <- abs(rnorm(n = nrow(efc), mean = 1, sd = 0.5))
  efc$e16sex[sample.int(nrow(efc), 5)] <- NA
  grp <- data_group(efc, "e42dep")
  print(data_tabulate(grp, "c172code", by = "e16sex", proportions = "row"))