`descriptr:::print_screen` fails if a variable has more than one class

[GegznaV]

Example

example_ds <- data.frame(
    col_integer    = c(2L, 2L, 2L, 5L, 5L),
    col_numeric    = c(1.9, NA, 2.9, 9.1, 9.6),
    col_ordinal    = ordered(c("S", "V", "V", "S", NA)),
    col_factor     = factor(c("R", "G", "G", "B", "B")),
    col_logical    = c(FALSE, TRUE, TRUE, FALSE, TRUE),
    col_character  = c("-", "-", "some text", "-", "-"),
    col_date       = Sys.Date(),
    col_time       = Sys.time(),
    
    stringsAsFactors = FALSE
)

descriptr::ds_screener(example_ds)

This example fais with error:

Error in max(sapply(lengths[[i]], nchar)) : 
  invalid 'type' (list) of argument