Exported get_metrics Function

[DarioS]

If I have done cross-validated classification and want all relevant metrics, there should be a convenience function for that.

get_metrics <- function(fns, type) {
  where <- vapply(fns, inherits, what = type, FUN.VALUE = logical(1))
  paste0("`", sort(names(fns[where])), "()`")
}

It is obscurely in a vignette but it would be better placed in a .R, documented and exported and had only type parameter.