table functions to work with empty tables

[catalamarti]

I have this utility function for the moment:

emptyTable <- function(type) {
  x <- dplyr::tibble(`Table has no data` = character())
  switch (type,
    "tibble" = x,
    "gt" = gt::gt(x),
    "flextable" = flextable::flextable(x)
  )
}