From c0ab7d7071459e9f0421c9abe942a44d3925448e Mon Sep 17 00:00:00 2001
From: Thomas Lin Pedersen <thomasp85@gmail.com>
Date: Fri, 17 Nov 2023 15:56:37 +0100
Subject: [PATCH] expect nodes in node_rank_hclust

---
 R/node_rank.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/node_rank.R b/R/node_rank.R
index fff6bdb..fc7719d 100644
--- a/R/node_rank.R
+++ b/R/node_rank.R
@@ -49,6 +49,7 @@ NULL
 #' @importFrom stats hclust
 #' @export
 node_rank_hclust <- function(method = 'average', dist = 'shortest', mode = 'out', weights = NULL, algorithm = 'automatic') {
+  expect_nodes()
   weights <- enquo(weights)
   weights <- eval_tidy(weights, .E())
   if (is.null(weights)) {