add direction in as_tibble.cluster_metric_set()

EmilHvitfeldt · EmilHvitfeldt · commit 2711718dacaf · 2024-02-28T11:17:14.000-08:00
diff --git a/R/metric-aaa.R b/R/metric-aaa.R
@@ -210,7 +210,8 @@ as_tibble.cluster_metric_set <- function(x, ...) {
   names <- names(metrics)
   metrics <- unname(metrics)
   classes <- map_chr(metrics, class1)
-  dplyr::tibble(metric = names, class = classes)
+  directions <- map_chr(metrics, attr, "direction")
+  dplyr::tibble(metric = names, class = classes, direction = directions)
 }
 
 class1 <- function(x) {

Original file line number	Diff line number	Diff line change
`@@ -210,7 +210,8 @@ as_tibble.cluster_metric_set <- function(x, ...) {`
`210`	`210`	`names <- names(metrics)`
`211`	`211`	`metrics <- unname(metrics)`
`212`	`212`	`classes <- map_chr(metrics, class1)`
`213`		`- dplyr::tibble(metric = names, class = classes)`
	`213`	`+ directions <- map_chr(metrics, attr, "direction")`
	`214`	`+ dplyr::tibble(metric = names, class = classes, direction = directions)`
`214`	`215`	`}`
`215`	`216`
`216`	`217`	`class1 <- function(x) {`