Change `pillar::new_pillar_type()` to `pillar::type_sum()`

[AARON-CLARK]

Change pillar::new_pillar_type() to pillar::type_sum() since the original code is just grabbing the output from type_sum() anyways. Certainly is more efficient coding. See dgkf/shinyDataFilter PR #15

Replace this:

IDEAFilter/R/shiny_vector_filter.R

Line 142 in d216e1e

pillar::new_pillar_type(obj)[[1]][1]

With this:

type <- pillar::type_sum(obj)
if (length(type) == 0L) "" else type